Delphi ile cmd komut göndermek ve yanıt almak

[yhackup]

Merhaba,

Nette rastladığım faydalı olabileceğini düşündüğüm bir fonksiyon...

function GetCommand(CommandLine: string): string;
var
  SA: TSecurityAttributes;
  SI: TStartupInfo;
  PI: TProcessInformation;
  StdOutPipeRead, StdOutPipeWrite: THandle;
  WasOK: Boolean;
  Buffer: array[0..255] of AnsiChar;
  BytesRead: Cardinal;
  WorkDir: string;
  Handle: Boolean;
begin
  Result := '';
  with SA do begin
    nLength := SizeOf(SA);
    bInheritHandle := True;
    lpSecurityDescriptor := nil;
  end;
  CreatePipe(StdOutPipeRead, StdOutPipeWrite, @SA, 0);
  try
    with SI do
    begin
      FillChar(SI, SizeOf(SI), 0);
      cb := SizeOf(SI);
      dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
      wShowWindow := SW_HIDE;
      hStdInput := GetStdHandle(STD_INPUT_HANDLE);
      hStdOutput := StdOutPipeWrite;
      hStdError := StdOutPipeWrite;
    end;
    WorkDir := GetCurrentDir;
    Handle := CreateProcess(nil, PChar('cmd.exe /C ' + CommandLine),
                            nil, nil, True, 0, nil,
                            PChar(WorkDir), SI, PI);
    CloseHandle(StdOutPipeWrite);
    if Handle then
      try
        repeat
          WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);
          if BytesRead > 0 then
          begin
            Buffer[BytesRead] := #0;
            Result := Result + Buffer;
          end;
        until not WasOK or (BytesRead = 0);
        WaitForSingleObject(PI.hProcess, INFINITE);
      finally
        CloseHandle(PI.hThread);
        CloseHandle(PI.hProcess);
      end;
  finally
    CloseHandle(StdOutPipeRead);
  end;
end;

[Fesih ARSLAN]

Merhaba,
Paylaşım için teşekkür ederim. 
Delphi 10 Seattle ve Delphi 10.1 Berlin sürümlerinde test etme imkanınız oldu mu?

---

Gördüğüm kadarıyla fonksiyon, gönderilen komutun sonucunu da geri döndürüyor.
Bu özellik sayesinde gönderilen komutun, doğru çalışıp çalışmadığının kontrolü açısından son derece kullanışlı olacaktır.

[engerex]

Daha önce kullandım ve sıkıntı yaşamadım. 

Kullandığımda ufak bir fark var :

function GetDosOutput(CommandLine: string; Work: string = 'C:\'): AnsiString;
var
 SA: TSecurityAttributes;
 SI: TStartupInfo;
 PI: TProcessInformation;
 StdOutPipeRead, StdOutPipeWrite: THandle;
 WasOK: Boolean;
 Buffer: array[0..255] of ansiChar;
 BytesRead: Cardinal;
 WorkDir: String;
 Handle: Boolean;
begin
 Result := '';
 with SA do begin
   nLength := SizeOf(SA);
   bInheritHandle := True;
   lpSecurityDescriptor := nil;
 end;
 CreatePipe(StdOutPipeRead, StdOutPipeWrite, @SA, 0);
 try
   with SI do
   begin
     FillChar(SI, SizeOf(SI), 0);
     cb := SizeOf(SI);
     dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
     wShowWindow := SW_HIDE;
     hStdInput := GetStdHandle(STD_INPUT_HANDLE); // don't redirect stdin
     hStdOutput := StdOutPipeWrite;
     hStdError := StdOutPipeWrite;
   end;
   WorkDir := Work;
   Handle := CreateProcess(nil, PChar('cmd.exe /C ' + CommandLine),
                           nil, nil, True, 0, nil,
                           PChar(WorkDir), SI, PI);
   CloseHandle(StdOutPipeWrite);
   if Handle then
     try
       repeat
         WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);
         if BytesRead > 0 then
         begin
           Buffer[BytesRead] := #0;
           Result := Result + Buffer;
         end;
       until not WasOK or (BytesRead = 0);
       WaitForSingleObject(PI.hProcess, INFINITE);
     finally
       CloseHandle(PI.hThread);
       CloseHandle(PI.hProcess);
     end;
 finally
   CloseHandle(StdOutPipeRead);
 end;
end;

[yhackup]

(16-09-2016, Saat: 19:47)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: Merhaba,
Paylaşım için teşekkür ederim. 
Delphi 10 Seattle ve Delphi 10.1 Berlin sürümlerinde test etme imkanınız oldu mu?

---

Gördüğüm kadarıyla fonksiyon, gönderilen komutun sonucunu da geri döndürüyor.
Bu özellik sayesinde gönderilen komutun, doğru çalışıp çalışmadığının kontrolü açısından son derece kullanışlı olacaktır.

Delphi 10 Seattle da kullandım sıkıntı yok

---

(16-09-2016, Saat: 21:02)engerex Adlı Kullanıcıdan Alıntı: Daha önce kullandım ve sıkıntı yaşamadım. 

Kullandığımda ufak bir fark var :

Hiç fark yok aynısı Adı değişmiş

[Fesih ARSLAN]

Merhaba,
Bu konu ile ilgili bir makalemi paylaşmak istiyorum.
Komut Satırından (CMD) Toplu İş Yaptırmak

[QuAdR]

Zamanın birinde değerli bir arkadaşım için yapmıştım böyle birşey.Ekte derlenmiş hali ve kodlarını bulabilirsiniz.

[Fesih ARSLAN]

(18-09-2016, Saat: 00:18)QuAdR Adlı Kullanıcıdan Alıntı: Zamanın birinde değerli bir arkadaşım için yapmıştım böyle birşey.Ekte derlenmiş hali ve kodlarını bulabilirsiniz.

Component kullanılmadan yapılmış ve çok da hızlı çalışıyor. 
Teşekkür ederim hocam.

[Cyb3r]

(18-09-2016, Saat: 00:18)QuAdR Adlı Kullanıcıdan Alıntı: Zamanın birinde değerli bir arkadaşım için yapmıştım böyle birşey.Ekte derlenmiş hali ve kodlarını bulabilirsiniz.

Kaynak kod için linke girince "Belirtilen ek dosya forumumuzda mevcut değil." diye hata mesajı veriyor. Linki yenileme imkanınız varmı?

[quiet1day]

(18-09-2016, Saat: 00:18)QuAdR Adlı Kullanıcıdan Alıntı: Zamanın birinde değerli bir arkadaşım için yapmıştım böyle birşey.Ekte derlenmiş hali ve kodlarını bulabilirsiniz.

Ek mevcut değil yenilermisiniz ?

[QuAdR]

Güncel...