mutiltheadconsole.dpr

delphi源代码分析源码

program MutilTheadConsole;

{$APPTYPE CONSOLE}

uses
  Windows,
  Messages,
  SysUtils,
  Classes;

var
  ThreadArr : array of record
    Handle, ID : Cardinal;
  end;

var
  Str : String;
  i : Integer;
  iMax : Integer = 1000;
  step : Integer = 1;

function OutThreadFunc(Parameter: Pointer): Integer; stdcall;
begin
  while true do
  begin
    writeln('need your input: ');
    sleep(step);
  end;
end;

begin
  SetLength(ThreadArr, iMax);
  for i:=0 to iMax-1 do
    ThreadArr[i].Handle := CreateThread(nil, 0, @OutThreadFunc, nil, 0, ThreadArr[i].ID);

  repeat
    readln(Str);
    // do any...
  until Str <> '';

  for i:=0 to iMax-1 do
    CloseHandle(ThreadArr[i].Handle);
end.