Genri
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
iTASmania_Inc
Код:
[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program
[Code]
const
BM_CLICK = $F5;
WM_GETTEXT = $D;
WM_GETTEXTLENGTH = $E;
function FindWindowEx(hWndM, hWndC: LongWord; lpszClass, lpszWindow: PChar): LongWord;
external 'FindWindowExA@user32.dll stdcall';
procedure InitializeWizard();
var
ResultCode: Integer;
AppWnd, EditWnd: LongWord;
length: LongInt;
Text: String;
begin
if Exec(ExpandConstant('{sys}\calc.exe'), '', '', SW_SHOW,
ewWaitUntilIdle, ResultCode) then
begin
AppWnd:= FindWindowByWindowName('Calculator');
if AppWnd <> 0 then
begin
SendMessage(FindWindowEx(AppWnd, 0, 'Button', '7'), BM_CLICK, 0, 0);
SendMessage(FindWindowEx(AppWnd, 0, 'Button', '/'), BM_CLICK, 0, 0);
SendMessage(FindWindowEx(AppWnd, 0, 'Button', '8'), BM_CLICK, 0, 0);
SendMessage(FindWindowEx(AppWnd, 0, 'Button', '='), BM_CLICK, 0, 0);
EditWnd:= FindWindowEx(AppWnd, 0, 'EDIT', '');
length:= SendMessage(EditWnd, WM_GETTEXTLENGTH, 0, 0);
Text:= StringOfChar(' ', length);
SendMessage(EditWnd, WM_GETTEXT, length, CastStringToInteger(Text));
MsgBox(Text, mbInformation, MB_OK);
end;
end;
end; |
Добавлено:
iTASmania_Inc
Цитата:| скрипт работает у меня неполностью, а именно: не осуществляется ввод числа 222. Не подскажете, в чём причина? |
-- т.е. мысль о том, что я дал кривой скрипт, у тебя даже не возникла ?!  Спасибо за доверие 
|
. Во-первых, серийник пишется в рег-файл, который не имеет ничего общего с реестром (формат). Во-вторых, и это более важно - генерация этого рег-файла идет с привязкой к Hardware ID, на другой машине он будет другой. Из за чего я и весь это "сыр-бор" затеял. Единственная возможность - это получить этот рег-файл честным путем, т.е. штатными средствами программы. Я писал на WSH простенький скрипт (на большее моих знаний не хватает), который поочередно "нажимает" нужные клавиши и вводит нужные мне значения в окошки регистрании программы. И, если не ошибаюсь, я приводил подобие этого скрипта на предыдущей странице. Но у подобной конструкции масса недостатков, а самы главный из них - зависимость временных интервалов от железа той машины, на которой это устанавливается. В общем, подбирать задержки - занятие неблагодарное. Кроме того, при установки с DVD-ROM ситуация с задержками меняется координально - я даже зачастую не могу попасть в диапазон. Поэтому, если уж нет другой возможности, хотелось бы этот скрипт (код) вставить в сам инсталлятор: тогда, по-крайней мере, я буду знать, что пока идет установка программы она (инсталляция) выполнит все предписанные для нее задачи. 
. Однако, кому-то пригодилось, значит не столь уж "monkey business" 