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