Author Topic: как отличить XP от WIN7  (Read 1853 times)

0 Members and 1 Guest are viewing this topic.

algirdas

  • Освоившийся
  • **
  • Posts: 35
    • View Profile
как отличить XP от WIN7
« on: December 14, 2017, 12:03:12 PM »
Как попроще отличить средствами Clickerman XP от WIN7 ? У меня картинка, с которой динамически снимается эталонный файл для scanpicture, сдвигается почему-то в разных системах по горизонтали на один пиксель. В итоге эталоны из-за краевых артефактов получаются разные и 100% в scanpicture не проходит. Меньше не могу, скрипт должен работать там и там. Вводить параллельно две координатные системы с двумя эталонами и принимать решение по или - не хочется.Хотелось бы определять систему и пользоваться нужными координатами. Увеличить размер окна для запаса тоже не могу - теряется цель.

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: как отличить XP от WIN7
« Reply #1 on: December 14, 2017, 12:21:52 PM »
Версия кликера какая?


Johnny

  • Создатель
  • Герой форума
  • *
  • Posts: 593
    • View Profile
Re: как отличить XP от WIN7
« Reply #2 on: December 14, 2017, 06:01:58 PM »
нет ну если чисто из академического интереса решать задачу...

Code: [Select]
tfwrite("D:\ver.bat", "ver > D:\win.txt")

execute("D:\ver.bat")
wait(1)

$str = tfread("D:\win.txt", 2)

$str = STRFILTER($str, "1234567890.", 1)

tfclear("D:\ver.bat", 1)
tfclear("D:\win.txt", 1)

print($str)
halt


но вообще конечно добавлю переменную под это дело)
« Last Edit: December 14, 2017, 06:08:47 PM by Johnny »

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: как отличить XP от WIN7
« Reply #3 on: December 14, 2017, 06:56:07 PM »
Тогда уж и разрядность сразу
Code: (clickermann) [Select]
EXECUTE("cmd.exe", "/C ver > D:\win.txt && echo %PROCESSOR_ARCHITECTURE% >> D:\win.txt")
wait(1)

$str1 = tfread("D:\win.txt", 2)
//$str1 = STRFILTER($str1, "1234567890.", 1)
$str2 = tfread("D:\win.txt", 3)
print($str1, "  ", $str2)

tfclear("D:\win.txt", 1)
HALT

И выводить не только кодовый номер, а то сравнивать неудобно будет. Нужно хранить все номера от серии.
« Last Edit: December 14, 2017, 07:01:20 PM by Vint »