ترفند هاي ساده دلفي !!!!

[pirooztornado]

مشخص كردن اينكه چه مدت از شروع كار ويندوز گذشته است ....
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
ndays ouble;
ticks:Longint;
btime:TDateTime;
begin
ticks:=GetTickCount;
ndays:=ticks/86400000;
btime:=Now-ndays;
ShowMessage(FormatDateTime('"windows started on " dddd,mmmm,d,yyyy, '+'"at" hh:nn:ss AM/PM',btime)+#10#13+
'It been up for '+IntToStr(TRUNC(ndays))+' days,'+
FormatDateTime(' h "hours," n " minutes," s "seconds"',ndays));

end;

end.

 

[CenoByte]

با عرض سلام و خسته نباشيد خدمت شما دوست دلفي كار آقا پيروز
اگر به دنبال يك مجموعه كامل از نكات دلفي - كتابها - و...ميگرديد يك پيغام خصوصي به اين جانب بزنيد تا دنياي دلفي شما رو متحول كنم....
موفق و پيروز باشيد.