Куда и как правильно в код занести эти три строки;
Код:
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.