thread.dpr

来自「delphi开发语言下的源代码分析」· DPR 代码 · 共 33 行

{$APPTYPE CONSOLE}
program Thread;

uses
  Windows;

var
  IsDone : Boolean = false;

function ThreadFunc(Parameter: Pointer): Integer; stdcall;
begin
  writeln('Hi, In MultiThread ...');

  // ...
  // 在线程函数中，随时可以调用ExitThread()来退出
  // 或者当代码执行到函数结束关键字时，也将退出该线程

  // Return Thread Exit Code
  Result := 0;
  IsDone := true;
end;

var
  ThreadID : Cardinal;
begin
  CreateThread(nil, 0, @ThreadFunc, nil, 0, ThreadID);

  while not IsDone do sleep(100);

  //...
  // 在线程函数之外，可以随时调用TerminateThread (ThreadID)来中止线程
end.