delphi CreateThread使用方法

在 Delphi 中使用 CreateThread 函数可以创建一个新的线程，具体步骤如下：

1. 在程序中声明一个 TThreadFunc 类型的函数，该函数将作为线程的执行体，例如：

function MyThreadFunc(Parameter: Pointer): Integer;
begin
  // 该函数为线程的执行体
end;

2. 在主线程中调用 CreateThread 函数来创建一个新线程，例如：

var
  hThread: THandle;
  ThreadID: DWORD;
begin
  hThread := CreateThread(nil, 0, @MyThreadFunc, nil, 0, ThreadID);
  if hThread <> 0 then
  begin
    // 线程创建成功
  end
  else
  begin
    // 线程创建失败
  end;
end;

其中，CreateThread 函数的参数依次为：线程安全属性（可以为 nil），堆栈大小（可以为 0），线程执行体（使用 @ 符号取地址），传递给线程执行体的参数（可以为 nil），线程创建标志（可以为 0），线程 ID（输出参数）。

3. 在 MyThreadFunc 函数中编写线程的执行逻辑。线程执行完成后，需要调用 ExitThread 函数来终止该线程，例如：

function MyThreadFunc(Parameter: Pointer): Integer;
begin
  // 线程执行逻辑
  ExitThread(0);
end;

需要注意的是，在多线程编程中，需要注意线程安全问题，避免出现竞态条件和死锁等问题。另外，需要在主线程中调用 WaitForSingleObject 函数来等待子线程执行完毕，以免子线程还未执行完毕就退出程序。