Pourquoi est ce que la fonction suivante
Code :
- function IsOnline(koi:string):boolean;
- var
- ShExecInfo : SHELLEXECUTEINFO;
- params:string;
- outchem:string;
- begin
- outchem:='c:\test.txt';
- params:= koi + ' -l 1 -n 1 > ' + outchem;
- ShExecInfo.cbSize := sizeof(SHELLEXECUTEINFO);
- ShExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
- ShExecInfo.lpVerb := nil;
- ShExecInfo.lpFile := PChar('ping.exe');
- ShExecInfo.lpParameters := PChar(params);
- ShExecInfo.lpDirectory := nil;
- ShExecInfo.nShow := SW_HIDE;
- ShellExecuteEx(@ShExecInfo);
- while (WaitForSingleObject(ShExecInfo.hProcess,0)=WAIT_TIMEOUT) do
- application.ProcessMessages;
- IsOnline:=true;
- end;
|
Ne me crée elle pas le fichier 'c:\test.txt' en y exportant le résultat de "ping" ? (alors que sous DOS ça marche sans pb...)
Message édité par Kyle_Katarn le 14-04-2003 à 20:03:21