我做个了提醒程序，但是有些问题，我想设置每当系统时间等于DateTimePicker1.Time的时间时，则弹出相应的对话框，但是我用DateToStr(DateTimePicker1.Time)=GetSystemTime(st),好像总是不行，有哪位高手帮我看看吗？

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

您好,

GetSystemTime API 函數的 宣告如下 :
VOID GetSystemTime(LPSYSTEMTIME lpst)
是 VOID 型, 也就是沒有直接回傳值, 他是由 LPSYSTEMTIME 型的 lpst 指標回傳的

要取用的話是您例中的 st.year, st.hour, ... 等等

何不用 delphi 內建的 now ?
if formatdatetime('hhnnss', datetimepicker1.time)=formatdatetime('hhnnss', now)
我想, 沒有用 formatdatetime 轉一下, 兩個時間(因為精確度的關係)要相等可能有點難.
參考一下

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

没有用啊，大大，还是不起作用，帮我看看，下面的代码是否有问题啊？

[code delphi]
procedure TForm1.RadioButton2Click(Sender: TObject);
var t:TdateTime;
begin
if radiobutton2.Checked then
datetimepicker1.Enabled :=true;
t:=datetimepicker1.Time ;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
timer3.enabled:=true;
if formatdatetime('hhnn', t)=formatdatetime('hhnn', now) then
text1:=labelededit2.Text ;
text2:=labelededit3.Text ;
cooltrayicon1.ShowBalloonHint(text1,text2,bitinfo,10);

[/code]

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

編輯記錄

您提供的程式不是很完整, 不能了解您要做什麼, 我嘗試猜一下您的問題所在, 請注意以下紅色部份(<-- 部份, 他沒變紅色)
===================引 用 zhouying82 文 章===================
没有用啊，大大，还是不起作用，帮我看看，下面的代码是否有问题啊？

[code delphi]
procedure TForm1.RadioButton2Click(Sender: TObject);
var t:TdateTime;
begin
if radiobutton2.Checked then <-- 有何用途, 且 then 若沒有 begin ... end 包起來, 只做其後一列.
datetimepicker1.Enabled :=true; <-- 是否是 timer3.enabled := true;
t:=datetimepicker1.Time ;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
timer3.enabled:=true; <-- 有何用途, 觸動以後再開? 如果原本 enabled 為 false, 永遠不會執行這一段.
<-- 是否是 timer3.enabled := false;
if formatdatetime('hhnn', t)=formatdatetime('hhnn', now) then <-- then 若沒有 begin ... end 包起來, 只做其後一列.
text1:=labelededit2.Text ;
text2:=labelededit3.Text ;
cooltrayicon1.ShowBalloonHint(text1,text2,bitinfo,10);
<-- 是否加 timer3.enabled := true;

[/code]

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

老大，好像还是不行吗？我重新设置了代码，您帮我看看呢？谢谢了。

[code delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
DateTimePicker1: TDateTimePicker;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if formatdatetime('hhmmss',datetimepicker1.time)=formatdatetime('hhmmss', now) then
showmessage('hello,world');
end;
end.

[/code]

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

上面的1/24/60，这个是什么意思啊？

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

個人小見解...

推st33chen大大用法~~~~

下面人個人寫法@@

[code delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Timer1: TTimer;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
TimeStr: string; //用來存showmessage的時間
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if(TimeStr=formatdatetime('hhmm',now()))then showmessage('hello.world');
//判斷時間=現在時日則showmessage 格式為hhmm
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TimeStr:=edit1.Text; //設定要顯示之時間 格式為 hhmm
timer1.Interval:=10000;
timer1.Enabled:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=false;
end;
end.
[/code]


小弟不才 初學程式.......

如果要判斷到秒~~ 那就把timer時間改短~~

再把hhmm改為hhmmss 應該就可以~~~~ (應該吧@@)

now()函數 輸出的數值是以天為單位，所以如果要延遲一分鐘
要先把 轉成以天為單位：
1分鐘 ＝ 1/(24小時 * 60分鐘) ＝ 1/24/60 天

編輯記錄