[NightTrap]

Куда и как правильно в код занести эти три строки;

Код:

1 2 3

repeat setcursorpos(-1, -1); until a;

чтобы они срабатывали вместе с запуском- (notepad.exe),и отключились вместе по окончанию работы- (notepad.exe).
Пример програмки;

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

program WaitForProcess;    {$APPTYPE CONSOLE}    uses   Windows, Forms;    var       si : TStartupInfo;       pi : TProcessInformation;       cmdLine : pChar;       app : pChar;       a: boolean;   begin       zeroMemory(@si,sizeof(si));     si.cb := sizeof(si);       zeroMemory(@pi,sizeof(pi));        cmdLine := 0;       app := 'c:\windows\system32\notepad.exe';       if not CreateProcess(app,cmdLine,nil,nil,false,0,nil,nil,si,pi ) then begin         writeln('fail to create process');     end     else begin        writeln('process started');         waitForSingleObject(pi.hProcess,INFINITE);          writeln('process closed');           closehandle(pi.hProcess);         closeHandle(pi.hThread);     end;       Application.Terminate;  end.

[M.A.D.M.A.N.]

Если в waitForSingleObject(pi.hProcess,INFINITE) передавать на инфинити, а какой-нибудь более мелкий интервал, то ф-я будет возвращать что-то типа "timeout".

Код:

1 2	while waitForSingleObject(pi.hProcess, 1) = BLA_BLA_TIMEOUT do   setcursorpos(-1, -1);