نقل قول نوشته شده توسط babak_delphi مشاهده تاپیک
آیا میشه خروجی رو هم در دلفی دید؟
مثلا خروجی ِ ping رو


بصورت زير استفاده كنيد پنجره ايي باز شده و به شما نمايش ميدهد :


procedure ExecuteShellCommand(cmdline: string; hidden: Boolean);

const

  flags: array [Boolean] of Integer = (SW_SHOWNORMAL, SW_HIDE);

var

  cmdbuffer: array [0..MAX_PATH] of Char;

begin

  GetEnvironmentVariable('COMSPEC', cmdBUffer, SizeOf(cmdBuffer));

  StrCat(cmdbuffer, ' /C ');

  StrPCopy(StrEnd(cmdbuffer), cmdline);

  WinExec(cmdbuffer, flags[hidden]);

end;





procedure TForm6.Button1Click(Sender: TObject);

begin

  ExecuteShellCommand('Ping 192.168.1.1', false) ;

end;