runexe_hss.pas

来自「一个多元非线性回归分析源码以及其中的公式列表」· PAS 代码 · 共 20 行

unit RunExe_Hss;

interface

  uses
    Forms, windows, Classes;


  type TProc = procedure(sender:TObject=nil);

  type
    TMyThread=CLASS(TThread)     //多线程类
    public
      procedure Execute();override;
  end;
  { 例子：
    var
      SecondProcess: TMyThread; // TMyThread is a custom descendant of TThread
    begin
      SecondProcess := TMyThread.Create(True); // create suspended