به ترفندهای دلفی لاور خوش آمديد

کدهای مخصوص دلفی

خاموش کردن مانيتور:

 SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0)

روشن کردن مانيتور:

 SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, - 1)

مخفی کردن ماوس در فرم

 procedure TForm1.Button1Click(Sender: TObject);

 begin

  ShowCursor(False);  // Hide mouse

 end;

 procedure TForm1.Button2Click(Sender: TObject);

 begin

  ShowCursor(True);  // Show mouse

 end;

به دست آوردن مختصات ماوس در صفحه نمایش:

 Label1.caption:=Mouse.cursorpos.x +' - ' + Mouse.cursorpos.y ;

تغییر مختصات ماوس:

 SetCursorPos(600,200) ;

جابجا کردن فرم با Drag&Drop  ماوس :

 type

  procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);

 :

 :

 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
  Const

  SC_DragMove = $f016;

 begin

 ReleaseCapture;

 Name.Perform(WM_SysCommand , SC_DragMove,0);

 end;

 باز کردن فایل اجرایی از برنامه :

 uses: shellapi


 shellexecute(handle,'open','d:\myproject.exe',nil,nil,sw_show);

با استفاده از اين تابع شما مي توانيد كه آيكون هاي برنامه ها را استخراج كنيد در ضمن عدد آخر شماره آن آيكون مي باشد .

 Uses Shellapi;

 Form1.Icon.Handle:=ExtractIcon(0,'C:\winxpexplorer.exe',0);

خروج سي دي رام:

 Uses MMSystem;

 mcisendstring('Set cdaudio door open wait',nil,0,handle);

 براي ورود :

 mcisendstring('Set cdaudio door closed wait',nil,0,handle);

 دایره ای کردن فرم :

 var
 H : Thandle;
 Begin
 H := CreateEllipticRgn(50, 50, 500, 200);
 SetWindowRgn(Handle,H,True);

شمار این ترفندها روز به روز افزایش می یابد .

ترفندهای ویندوز

مخفی کردن کلیه عناصر موجود در Desktop

 بوجود آوردن ASP درکامپیوتر

 از منوی Start به Settings و سپس Control Panel برويد . در پنجره Control Panel آيكن Add/Remove Programs را انتخاب كنيد.  در پنجره Add/Remove Programs گزينه

Add/Removes Windows Components را انتخاب كنيد.  در پنجره جديد

گزينه Internet Information Services را انتخاب كرده، OK را بزنيد.  يك شاخه Inetpub در هارد شما ايجاد خواهد شد. آن را باز كنيد و شاخه wwwroot را بیابید كنيد.  يك شاخه جديد درست كنيد و نام آن را چيزي شبيه به "Web" بگذاريد. از يك ويرايشگر متن استفاده كنيد و كدهاي ASP را بنويسيد، فايل را به نام "aval.asp" را در شاخه "Web" ضبط كنيد. مطمئن شويد كه وب سرور

شما اجرا است - برنامه نصب يك آيكن جديد درTask Bar شما اضافه كرده است

 (اين نشانه IIS است). بر روي آن كليك كنيد و دكمه Start را در پنجره اي كه آمده بزنيد.

Browser خود را باز كنيد و تايپ كنيد "http://localhost/MyWeb/test1.asp"، تا اولين صفحه ASP خود را ببينيد