delphi6 线程代码
时间: 2024-03-16 12:28:33 浏览: 18
以下是一个简单的 Delphi 6 线程示例代码,它演示了如何创建和启动一个线程:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure MyThreadProc;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.MyThreadProc;
var
i: Integer;
begin
for i := 1 to 1000000 do
begin
// 在这里添加线程代码
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
hThread: THandle;
begin
hThread := CreateThread(nil, 0, @MyThreadProc, nil, 0, nil);
if hThread = 0 then
ShowMessage('Failed to create thread')
else
CloseHandle(hThread);
end;
end.
在上面的代码中,我们创建了一个名为 MyThreadProc 的过程,它是线程的执行代码。然后,我们在按钮单击事件中创建一个线程,并将 MyThreadProc 函数作为线程的执行代码。最后,我们关闭线程句柄。
请注意,该示例代码只是一个基本的框架,您需要根据自己的需求修改线程代码。例如,您可能需要将一些数据传递给线程,或者从线程中返回一些结果。