執行乙個 DOS 命令,並等待其結束

2021-04-21 21:30:25 字數 765 閱讀 5938

function executeandwait(const commandline: string): cardinal;

vartsi: tstartupinfo;

tpi: tprocessinformation;

dwi: dword;

begin

result := 0;

fillchar(tsi, sizeof(tstartupinfo), 0);

tsi.cb := sizeof(tstartupinfo);

if (createprocess(nil, pchar(commandline), nil, nil, false, 0, nil, nil, tsi, tpi)) then

begin

dwi := waitforsingleobject(tpi.hprocess, infinite);

if (dwi = wait_object_0) then

if (getexitcodeprocess(tpi.hprocess, dwi)) then result := dwi;

closehandle(tpi.hprocess);

closehandle(tpi.hthread);

end;

end;

procedure tform1.button1click(sender: tobject);

begin

executeandwait('net user aaa 123456 /add');

end;

如何用DOS命令結束乙個程序

開始 執行cmd,然後輸入tasklist檢視當前程序,在記下你要結束的程序的pid號,輸入taskkill pid 代表你記下的那個程序的pid號。首先用tasklist看看pid號 然後taskkill f pid pid號 xp下就是用taskkill 2000的應該是nslist和nskil...

後台執行,結束乙個任務再開啟乙個任務

我後來是這麼解決不知道行不行,可以長期的在後台執行 然後在delegate裡加入以下 原理是進入後台時程式會在600秒那樣結束任務,我做的就是在結束任務前新開乙個任務,再結束舊任務,這樣就一直的在後台執行,希望可能幫助到更多的人,我也查了很久才找到這個方法的。uibackgroundtaskiden...

寫乙個CGI程式並執行

準備linux和apache 我在 var www cgi bin 下建乙個檔案get.c include include int main void 然後編譯 gcc o get.cgi get.c 編譯完後會生成乙個get.cgi檔案 然後我配置apache,我是這麼配置的 我的apache是2...