مشکل در 24 ساعته کردن ساعت

[farzadkamali]

درود

می خوام ساعت در برنامه به صورت 24 ساعته باشه. از دستور زیر استفاده کردم نشد.

label2.Caption:=FormatDateTime('hh:mm:ss', Now);


وبرنامه رو که اجرا میکنم همچنان 12 ساعته هست فقط ق.ظ و ب.ظ نداره.

ویندوز من 7 وساعت سیستمم 12 ساعته هست. نیازی نیست که ساعت سیستمم 24 ساعته باشه؟

[ayat255]

procedure TForm1.Button1Click(Sender: TObject);
var
t:TSystemTime;
begin
GetLocalTime(t);
Label1.Caption:=inttostr(t.wHour)+':'+inttostr(t.w Minute)+':'+inttostr(t.wSecond);
end;

[farzadkamali]

procedure TForm1.Button1Click(Sender: TObject);
var
t:TSystemTime;
begin
GetLocalTime(t);
Label1.Caption:=inttostr(t.wHour)+':'+inttostr(t.w Minute)+':'+inttostr(t.wSecond);
end;


نشد. همچنان 12 ساعته هست.

[Felony]

می خوام ساعت در برنامه به صورت 24 ساعته باشه. از دستور زیر استفاده کردم نشد.
label2.Caption:=FormatDateTime('hh:mm:ss', Now);

کاراکترهای کوچیک به معنی فرمت 12 ساعته و بزرگ به معنای فرمت 24 ساعته هستند ، بنابراین :


label2.Caption := FormatDateTime('HH:MM:SS', Now);