Delphi CreateThread使用实例代码参考

Delphi中的CreateThread函数用于创建一个新线程。它将指定的线程函数作为入口点，并将一个指针传递给线程函数作为参数。以下是一个使用CreateThread的实例代码：

type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
  end;

procedure TMyThread.Execute;
begin
  // 在这里放置线程的代码逻辑
  // 当线程开始执行时，此方法会被调用
end;

function ThreadFunc(Parameter: Pointer): DWORD; stdcall;
var
  MyThread: TMyThread;
begin
  MyThread := TMyThread.Create(Parameter);
  MyThread.FreeOnTerminate := True; // 自动释放线程对象
  MyThread.Start;
  Result := 0;
end;

procedure CreateNewThread;
begin
  CreateThread(nil, 0, @ThreadFunc, nil, 0, nil);
end;

在这个例子中，首先定义了一个继承自TThread的类`TMyThread`，并重写了其`Execute`方法，这是线程执行的主要入口点。`ThreadFunc`函数是一个标准的线程函数，它创建了`TMyThread`的一个实例，并启动线程。`CreateNewThread`函数则是使用CreateThread创建一个新线程，其中`nil`参数表示使用默认的安全属性，`0`表示默认的堆栈大小，`@ThreadFunc`是要运行的线程函数，第二个`nil`表示线程函数不需要传递参数，最后的`nil`是指定创建的线程的ID变量的地址。