Komut satırı programının tamamlanması için nasıl bekleyebilirim?

Question

Komut satırı parametreleriyle programı çalıştırıyorum. Çalışmayı bitirmesi için nasıl bekleyebilirim?

Answer 1

Bu

cevabım ise: (teşekkür ederiz)

uses ShellAPI; 

function TForm1.ShellExecute_AndWait(FileName: string; Params: string): bool; 
var 
    exInfo: TShellExecuteInfo; 
    Ph: DWORD; 
begin 

    FillChar(exInfo, SizeOf(exInfo), 0); 
    with exInfo do 
    begin 
    cbSize := SizeOf(exInfo); 
    fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT; 
    Wnd := GetActiveWindow(); 
    exInfo.lpVerb := 'open'; 
    exInfo.lpParameters := PChar(Params); 
    lpFile := PChar(FileName); 
    nShow := SW_SHOWNORMAL; 
    end; 
    if ShellExecuteEx(@exInfo) then 
    Ph := exInfo.hProcess 
    else 
    begin 
    ShowMessage(SysErrorMessage(GetLastError)); 
    Result := true; 
    exit; 
    end; 
    while WaitForSingleObject(exInfo.hProcess, 50) <> WAIT_OBJECT_0 do 
    Application.ProcessMessages; 
    CloseHandle(Ph); 

    Result := true; 

end; 

Answer 2

Ok, komut satırı parametrelerini almak sen

ParamCount kullanın: komut satırında program geçirilen parametrelerin sayısını döndürür.

ParamStr: dizine göre istenen belirli bir parametreyi döndürür. konsola metin satırı yazıyor: ne demek okuma ve konsola yazıyor eğer Running Dephi Applications With Parameters

Şimdi,

WriteLn kullanın.

ReadLn: Konsoldaki bir metin dizesini bir dize olarak okur. Ne istediğiniz bir komut satırı yürütülebilir yürütmek ve bu exe konsola yazar olduğunu yanıt almak için ise Delphi Basics

Answer 3

, en kolay yolu bir toplu iş dosyasından exe arayıp diğerine çıkışını yönlendirmek olabilir > kullanarak dosya ve sonra bu dosyayı okuyun.

@echo off 
dir c:\users\myuser\*.* > output.txt 

API kullanarak bu toplu iş dosyasını exec olabilir: Eğer "dir" komutunu çalıştırmak ve çıkışını almak gerekirse

Örneğin, aşağıdaki içerdiğini getdir.bat adlı bir toplu iş dosyası var olabilir ShellExecute işlevi. Sen Sonra hatta bir TStringList gibi bir şey kullanarak, çıktı dosyasını okuyabilir o http://delphi.about.com/od/windowsshellapi/a/executeprogram.htm

okuyabilirsiniz: Sorunuzu doğru anlamak

var 
    output: TStringList; 
begin 
    output := TStringList.Create(); 
    output.LoadFromFile('output.txt'); 
    ... 

Answer 4

, komut satırında programını yürütmek ve yakalamak istediğiniz onun konsol penceresinde yerine uygulamanızda çıktı. Bunu yapmak için, çıkışı pipes kullanarak okuyabilirsiniz. Capture the output from a DOS (command/console) Window

Answer 5

DSiWin32 kullanma:

sl := TStringList.Create; 
if DSiExecuteAndCapture('cmd.exe /c dir', sl, 'c:\test', exitCode) = 0 then 
    // exec error 
else 
    // use sl 
sl.Free;