آخرین ارسال ها

نمایش پروفایل کاربر · Saturday 27 January 2007 02:56

در این تاپیک سعی داریم نمونه های سودمند از سورس کد های دلفی که معمولا در برنامه نویسی نیازمند هستند را جهت استفاده بازدیدکنندگان قرار دهیم

از آنجا که این انجمن جهت رفع مشکلات و راهنمایی بازدیدکنندگان ایجاد شده از کاربران دعوت مینماییم چنان چه در این خصوص تخصصی دارند ما را در این امر یاری دهند.

نمایش پروفایل کاربر · Saturday 27 January 2007 03:19

یک فانکشن برای بردن مانیتور به standby :

کد:

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

نمایش پروفایل کاربر · Tuesday 13 February 2007 19:58

این تابع همونطور که از اسمش پیداست، میتونه کارایی از قبیل restart-shutdown و ... رو انجام بده

کد:

function PowerMng(Action:String;Force:Boolean):boolean; 

var 

 rl: Cardinal; 

 hToken: Cardinal; 

 tkp: TOKEN_PRIVILEGES; 

begin 

 if Win32Platform = VER_PLATFORM_WIN32_NT then 

 begin 

 //Get access to windows privilege 

  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken); 

  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid); 

  tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;; 

  tkp.PrivilegeCount := 1; 

  AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl); 

  //Shutdown Windows 

  if (Action='1') and (Force=false) then 

  begin 

   ExitWindowsEx(EWX_SHUTDOWN, 0) 

  end 

  else 

  if (Action='1') and (Force=true) then

  begin 

  (ExitWindowsEx(EWX_SHUTDOWN or EWX_FORCE, 0));

  end; 

  //Restart/Reboot Windows 

  if (Action='2') and (Force=false) then 

  begin

   ExitWindowsEx(EWX_REBOOT, 0) 

  end 

  else 

  if (Action='2') and (Force=true) then 

  begin

   (ExitWindowsEx(EWX_REBOOT or EWX_FORCE, 0)); 

  end; 

  //Log Off Windows 

  if (Action='3') and (Force=false) then 

  begin 

   ExitWindowsEx(EWX_LOGOFF, 0) 

  end 

  else 

  if (Action='3') and (Force=true) then 

  begin 

   (ExitWindowsEx(EWX_LOGOFF or EWX_FORCE, 0)); 

  end; 

  //Turn off monitor 

  if (Action='4') and (Force=true) then 

  begin 

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

  end 

  else 

  if (Action='4') and (Force=true) then 

  //Turn on monitor 

  begin 

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

  end; 

  //Activating screensaver 

  if (Action='5') then 

  begin 

   DefWindowProc(Form1.Handle{Application.Handle},WM_SYSCOMMAND,SC_SCREENSAVE,0); 

  end; 

 end; 

end; 

// مثال

procedure TForm1.Button1Click(Sender: TObject); 

begin 

 PowerMng('1',false); 

 //خاموش کردن 

 PowerMng('2',false); 

 //ریبوت کردن

 PowerMng('5',false); 

 //فعال کردن screen saver 

end;

قابل اجرا در کلیه محیط های ویندوز

نمایش پروفایل کاربر · Tuesday 08 July 2008 23:31

سلام خوب هستين . ببخشيد سورس برنامه تقويم 20 سال آينده را ميخوام .ممنون ميشم اگه سورسشو بدين .

اين برنامه خاموش روشن كردن هم جالب بود .دمتون گرم

نمایش پروفایل کاربر · Wednesday 03 December 2008 15:23

سلام لطفا اگر سورس paint را دردلفی دارید برایم ارسال کنید

mehdi_nabeg@YAHOO.COM

نمایش پروفایل کاربر · Thursday 14 May 2009 02:11

اگه سورس ها را با برنامه هاش بزارید برا دانلود بهنره برنامه اجرایی منظورمه


آموزش پرورش اندام در 90 روز	دستبندوگوشواره ماه تولد شما	آموزش افزایش قد (کتاب و سی دی)	جدیدترین روش بستن شال و روسری	برنامه مشاهده همه شبکه های دنیا

موضوع های مرتبط با این موضوع...
موضوع:		نویسنده	پاسخ:	بازدید:	آخرین ارسال
	دانلود کامپوننت و ابزارهای دلفی	Ashkan	9	11,943	Tuesday 12 April 2011 21:43 آخرین ارسال: رسول صدیقی
	طریقه اتصال یک بانک اطلاعاتی اکسس با دلفی	Hossein.Libera	1	4,999	Monday 21 March 2011 10:10 آخرین ارسال: zahedpoor
	نمونه برنامه های دلفی با سورس	Ashkan	14	12,629	Monday 27 December 2010 15:16 آخرین ارسال: bahareh12
	دلفی 2010 جدیدترین محبوب قدیمی	onlinelife	1	436	Tuesday 23 November 2010 02:34 آخرین ارسال: PPF
	طریقه اتصال به SqlServer در دلفی	MoonLover	0	488	Sunday 12 September 2010 23:27 آخرین ارسال: MoonLover

جستجو در این موضوع نحوه نمایش امکانات امکانات مدیر سورس کد های سودمند برای دلفی
نویسنده	پیام