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...