تبليغاتX
آموزش دلفی
آموزش دلفی
ترفندهای دلفی
40 تنظيم رزوليشن فرم با رزوليشن صفخه مونيتور

Procedure TForm1.FormShow(Sender: TObject

var
; r : TRect
Begin
;( SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0 ;(Form1.SetBounds(r.Left,r.Top,r.Right - r.Left,r.Bottom -r.Top)
.End
+ نوشته شده در  سه شنبه 1386/06/06ساعت 23:7  توسط هوشنگ شیشه لو | 
39 اجرای ماشین حساب ویندوز در دلفی

     

ShellExecute (HWND(nil), 'open', 'calc','', '', SW_SHOWNORMAL);
+ نوشته شده در  سه شنبه 1386/06/06ساعت 23:4  توسط هوشنگ شیشه لو | 
38 روشن وخاموش کردن مونیتور با کد دلفی

 خاموش کردن مونیتور

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

 روشن کردن مونیتور

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

 
+ نوشته شده در  سه شنبه 1386/06/06ساعت 16:28  توسط هوشنگ شیشه لو | 
37 بستن برنامه دیگر از دلفی

 با این تابع می توانید برنامه های دیگر را از درون برنامه خودتان ببندید :

function KillApp(const sCapt: PChar) : boolean;
  var AppHandle:THandle;
begin
  AppHandle:=FindWindow(Nil, sCapt) ;
  Result:=PostMessage(AppHandle, WM_QUIT, 0, 0) ;
end;

if KillApp('ليبيل برنامه مقصد') then ShowMessage('بسته شد') ;  

 
+ نوشته شده در  سه شنبه 1386/06/06ساعت 16:21  توسط هوشنگ شیشه لو |