[NightTrap]

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

Код:

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

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

Код:

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".

Код:

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