Вверх ↑
Этот топик читают: Гость
Ответов: 20
Рейтинг: 2
#1: 2012-07-17 20:24:18 ЛС | профиль | цитата
code_28495.txt

Определяет х86 или х64.
Тестим, дополняем, упрощаем
карма: 1

0
файлы: 1code_28495.txt [1.9KB] [418]
vip
#1.1контекстная реклама от партнеров
Ответов: 1173
Рейтинг: 49
#2: 2012-07-17 20:38:03 ЛС | профиль | цитата
Вариант для любителей изврата:
code_28496.txt
карма: 0

1
файлы: 1code_28496.txt [1.4KB] [411]
Голосовали:werdes
Ответов: 1731
Рейтинг: 68
#3: 2012-07-17 21:06:06 ЛС | профиль | цитата
[offtop]Это круто, это КРУТО [/offtop]
------------ Дoбавленo в 21.06:
Решил определить с помощью VBS.
Но вылетает ошибка: Требуется объект: "
Add(MainForm,2953706,21,105)
{
}
Add(Button,1986153,91,105)
{
Left=5
Top=5
link(onClick,14576096:doArh,[])
}
Add(Label,193577,238,105)
{
Left=85
Top=10
}
Add(VBJScript,14576096,161,105)
{
WorkPoints=#5:doArh|
EventPoints=#5:onArh|
Script=#23:Sub doWork(Data, Index)|21: Select Case Index |20: Case "doArh" |17: Dim WshShell |57: Set WshShell = WScript.CreateObject("WScript.Shell") |51: Set WshProEnv = WshShell.Environment("SYSTEM") |56: sys.onArh = WshProEnv.Item("PROCESSOR_ARCHITECTURE")|21: End Select |8:End Sub |
UseName=0
link(onArh,193577:doText,[])
}

карма: 1

0
Ответов: 20
Рейтинг: 2
#4: 2012-07-17 21:31:31 ЛС | профиль | цитата
Ex_Ex_, можно заюзать переменную окружения %SYSTEMDRIVE% (C, многие любители изврата переименовывают папку виндовс
Cosinus, наткнулся на вот такую реализацию в vbs
code_28498.txt

Моя поделка себя по странному ведет, если запущена без прав администратора, то на 64, показывает 86
карма: 1

0
файлы: 1code_28498.txt [180B] [359]
Ответов: 1731
Рейтинг: 68
#5: 2012-07-17 21:41:46 ЛС | профиль | цитата
Да, вот теперь работает.
code_28499.txt
------------ Дoбавленo в 21.41:
Странно только, что предыдущий скрипт работал нормально как VBS файл.
карма: 1

0
файлы: 1code_28499.txt [542B] [344]
Ответов: 20
Рейтинг: 2
#6: 2012-07-17 21:52:44 ЛС | профиль | цитата
Cosinus, отлично, теперь и на vbs есть
Предлагаю так же самый простой вариант
code_28500.txt


карма: 1

0
файлы: 1code_28500.txt [243B] [398]
6
Сообщение
...
Прикрепленные файлы
(файлы не залиты)