Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Dodakaedr

Ветеран


Сообщения: 863
Благодарности: 262

Профиль | Отправить PM | Цитировать


Цитата R.i.m.s.k.y.:
задержать на 20 секунд »
команда sleep
Код: Выделить весь код
sleep(20000)
Цитата R.i.m.s.k.y.:
сделать режим при запуске с нажатой клавишей Shift »
Example
Код: Выделить весь код
[Setup]
AppName=AppName
AppVerName=AppVerName
DefaultDirName={pf}\My Program

[Code]
const VK_SHIFT = $10;

function GetKeyState(nVirtKey: Integer): Shortint; external 'GetKeyState@user32.dll stdcall';

function InitializeSetup: Boolean;
begin
Result:= GetKeyState(VK_SHIFT) < 0;
if not result then
MsgBox('Для запуска требуется зажать кнопку Shift', mbInformation, MB_OK);
end;

-------
Inno Setup 5 Ultra Unicode


Последний раз редактировалось Dodakaedr, 16-01-2017 в 13:34.

Это сообщение посчитали полезным следующие участники:

Отправлено: 12:36, 16-01-2017 | #1804