unit unit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls;
type
tmythread = class(tthread)
protected
procedure execute; override;
public
constructor create;
destructor destroy; override;
end;
tform1 = class(tform)
btn1: tbutton;
procedure btn1click(sender: tobject);
private
public
end;
varform1: tform1;
hprocess: thandle;
implementation
procedure tform1.btn1click(sender: tobject);
varpinfo: tprocessinformation;
sinfo: tstartupinfo;
path: array[0..max_path - 1] of char;
threadid: dword;
begin
getsystemdirectory(path, max_path);
strcat(path, '\notepad.exe');
fillchar(sinfo, sizeof(sinfo), 0);
if createprocess(path, nil, nil, nil, false, 0, nil, nil, sinfo, pinfo) then
begin
hprocess := pinfo.hprocess;
text := format('程序 %d 已啟動', [hprocess]);
with tmythread.create do
resume;
end;
end;
constructor tmythread.create;
begin
inherited create(true);
freeonterminate := true;
end;
destructor tmythread.destroy;
begin
inherited;
end;
procedure tmythread.execute;
vari: integer;
begin
inherited;
if waitforsingleobject(hprocess, infinite) = wait_object_0 then
begin
form1.text := format('程序 %d 已關閉', [hprocess]);
end;
end;
end.
delphi多執行緒程式示例
delphi多執行緒程式示例 與.net一樣簡單 選擇自 yonny 的 blog 關鍵字delphi多執行緒程式示例 與.net一樣簡單 出處 下面這個程式介紹了我們在使用執行緒及未使用執行緒二種情況下，執行該程式的反 應。當點usedthread按鈕時，則建立乙個執行緒，這時我們可以在程式進行計...
用Delphi編寫安裝程式 1
用delphi編寫安裝程式 1 當你完成乙個應用軟體的開發後，那麼你還需要為該軟體做乙個規範化的安裝程式，這是程式設計的最後一步，同時也是很重要的一步，因為執行安裝程式往往是使用者做的第一步操作。很多報刊文章介紹了許多如何利用installshield等工具軟體來製作安裝程式的方法，這種辦法可以很快...
用delphi製作新聞採集程式（二）
在前一篇文章裡，我們討論了新聞採集程式的原理。今天要來具體實現了。首先，程式將用到 控制項 在 indy clients 面板 關於該控制項的詳細文件，e文好的朋友可以登陸這裡檢視 本程式用到的 get方法在第 53頁。網上關於 indy 的幫助文件也整理了不少，可是我一直沒找到中文的。在本程式中，...