delphi线程

var
<wbr> function MyThread(p: Pointer): Integer; stdcall;</wbr>

implementation

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

<wbr></wbr>

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