delphi线程

var
  function MyThread(p: Pointer): Integer; stdcall;

implementation

function MyThread_Send:Boolean;
var
  sms:TSms;
begin
  try
    CoInitialize(nil);
    sms.SendSmsByTime;
  finally
    CoUninitialize;
  end;
end;
function MyThread(p: Pointer): Integer;
begin
  MyThread_Send;
end;

 

procedure TfmMain.tmrMainTimer(Sender: TObject);
var
  Hour,   Min,   Sec,MSec:   Word;
  Hour1,   Min1,   Sec1,MSec1:   word;
  id:THandle;
begin
  DecodeTime(dpTime.Time,   Hour1,   Min1,   Sec1,MSec1);
  DecodeTime(Now,   Hour,   Min,   Sec,MSec);
  if (Hour = Hour1) and  (Min=Min1) and (Sec=Sec1)    then
  begin
    CreateThread(nil, 0, @MyThread, nil, 0, ID);
  end;
end;