Controle du INPUT/OUTPUT dune app, extern (console) Résolu

Question

Bonjours,

En language C ma question serait sur les captures stdout and stdin d`une application externe. Cependant c`est en delphi (pascal) que je tente cette experience aujourd`huit.

J`aimerais lancer par une application console, cod&#233; en delphi, le programme "netstat.exe" inclu dans tous les produits Microsoft Windows. Le programme netstat.exe serait lanc&#233; avec windows API et SW_HIDE donc cach&#233; de l`utilisateur. J`aimerais qu`au moment de son lancement tous les "stdout" , donc tous les textes g&#233;n&#233;r&#233;s pas "netstat.exe", soit captur&#233; et affich&#233; par l`entremise du programme delphi qu`il a lanc&#233;. Puis la possibilit&#233; a l`utilisateur d`envoyer une commande a "netstat.exe".

lemongreen · Answer

Oui c`est donc jai besoin.

Voici la conversion in console:

program Project2;


{$APPTYPE CONSOLE}


uses
  SysUtils,
  Forms,
  Windows;


procedure RunDosInMemo(DosApp:String);
const
  ReadBuffer = 2400;
var
Security            : TSecurityAttributes;
ReadPipe,WritePipe  : THandle;
start               : TStartUpInfo;
ProcessInfo         : TProcessInformation;
Buffer              : Pchar;
BytesRead           : DWord;
Apprunning          : DWord;
begin
With Security do begin
 nlength              := SizeOf(TSecurityAttributes);
 binherithandle       := true;
 lpsecuritydescriptor := nil;
end;
if Createpipe (ReadPipe, WritePipe,@Security, 0) then
begin
 Buffer  := AllocMem(ReadBuffer + 1);
 FillChar(Start,Sizeof(Start),#0);
 start.cb          := SizeOf(start);
 start.hStdOutput  := WritePipe;
 start.hStdInput   := ReadPipe;
 start.dwFlags     := STARTF_USESTDHANDLES +
                      STARTF_USESHOWWINDOW;
 start.wShowWindow := SW_HIDE;


 if CreateProcess(nil,PChar(DosApp),@Security,@Security,true,NORMAL_PRIORITY_CLASS,nil,nil,start,ProcessInfo) then
   begin
  repeat
   Apprunning:= WaitForSingleObject(ProcessInfo.hProcess,100);
   Application.ProcessMessages;
  until (Apprunning <> WAIT_TIMEOUT);
   Repeat
     BytesRead := 0;
     ReadFile(ReadPipe,Buffer[0],
     ReadBuffer,BytesRead,nil);
     Buffer[BytesRead]:= #0;
     OemToAnsi(Buffer,Buffer);
     writeln(String(Buffer));
   until (BytesRead < ReadBuffer);
end;
FreeMem(Buffer);
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
CloseHandle(ReadPipe);
CloseHandle(WritePipe);
end;
end;


begin
  RunDosInMemo('netstat.exe -a');
  readln;
end.

Controle du INPUT/OUTPUT dune app, extern (console)

1 réponse

Votre réponse

Discussions similaires