با تابع زیر می تونید زمان شروع به کار ویندوز رو به دست بیارید و در قالبی جالب ببینید که چند روز و چند ساعت و چند دقیقه و چند ثانیه از اون می گذره.

امیدوارم خوشتون بیاد. نظرات شما در راستای هر چه بهتر شدن این وبلاگ منو کمک می کنه

Procedure TForm1.Button1Click(Sender: TObject);

Var NDay:Double;

       Tick:Longint;

       BTime:TDateTime;

       S:String;

Begin

 Tick:=GetTickCount;

 NDay:=tick/86400000;

 BTime:=Now-NDay;

 S:='"Windows started on" dddd,mmmm d,yyyy,'+'"at" hh:nn:ss AM/PM';

 ShowMessage( FormatDateTime(S,BTime)+#10#13+

 'It been up for '+IntToStr(TRUNC(nday))+' Days,'+

 FormatDateTime(' h "Houre," n "minutes," s "seconds"',nday));

End;

بعضی برنامه ها فقط یکبار اجرا می شن ، یعنی چی ؟؟؟ یعنی اینکه اگه شما یه اون برنامه رو اجرا کنید اون برنامه دیگه اجرا نمی شه (تکراری) تا برنامه ای که باز شده بسته بشه ، مثلا نمونه بارزش Windows Media Player که در آن واحد دوبار اجرا نمی شه .

این کار رو به سادگی می تونیم تو دلفی انجام بدیم ، این بار دیگه با یونیت Project مون کار داریم .

 یه دستور If که دستورهای ساختن فرمهای برنامه تون تو اون قرار داره و خود شرطمون چک می کنه که اگه همین برنامه قبلا اجرا شده اجازه ساخته شدن مجدد Application و فرمها رو نمی ده.

البته Createmutex در یونیت Windows تعریف شده که لازمه دسترسی به اون رو در قسمت Uses ها ایجاد کنیم.

Var

 hm : THandle;

Begin

 hm:=Createmutex(Nil,False,'OneCopyMutex');

 If WaitForSingleObject(hm,0)<>Wait_TimeOut Then

 Begin

  Application.Initialize;

  Application.CreateForm(TForm1, Form1);

  Application.Run;

 End;

می دونید که کامپوننت image در حالت عادی نمی تونه فایل های GIF رو نمایش بده برای انجام این کار می تونید از اسکریپت زیر استفاده کنید ، برای اجرای این اسکریپت باید یونیت axctrls را صدا بزنید :

Uses axctrls;

Procedure TForm1.Button1Click(Sender: TObject);

Var

 F:TFileStream;

 O: TOleGraphic;

Begin

If OpenDialog1.Execute then

 Begin

  F:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead or fmShareDenyRead);

  O:=TOleGraphic.Create;

  O.LoadFromStream(F);

  Image1.Picture.Assign(O);

  O.Free;

  f.Free;

 End;

End;

دوستان دلفی کار ، حتما با کامپوننت memo آشنا هستید ، شاید تا حالا براتون پیش اومده باشه که نیاز داشته باشید برای memo یی که تو برنامه تون استفاده کردید حاشیه بذارید.

با استفاده از این کد که اون رو تو OnCreate ، فرمتون قرار می دید می تونید این کار رو انجام بدید:

متغیر  r  رو از نوع TRect تعریف کنید

نمی دونم تا حالا اسم تخم مرغ رنگی به گوشتون خورده یا نه ؟ می خوام یکی از اونا رو که به دلفی 7 مربوط می شه براتون معرفی کنم وقتی انجامش بدین متوجه  می شین چیه.

روی آیکن دلفی دابل کلیک کنید ، به سرعت قبل از اینکه لوگوی دلفی ظاهر بشه کلیدهای Ctrl و Shift را همزمان پایین نگه دارید ، اگر اتفاق خاصی رخ نداد دوباره سعی کنید تا به نتیجه برسید ...

برای اینکه با تخم مرغ های مختلف برنامه های مختلف آشنا بشید به سایت www.Eggss.com  سری بزنید.

نظر هم یادتون نره.