.تعمیـــرکاران کیان ست (kiansat.kim)تابع قوانین -جمهموری-اسلامی ایران میباشد و ارسال هر گونه مطلب سیاسی،مذهبی،غیراخلاقی و خرید و فروش متعلقات ماه-واره و دیگر موارد مجرمانه ممنوع میباشد وبا کاربران خاطی به شدت برخورد میگردد انجمن فقط تعمیرات لوازم الکترونیک میباشد...













سلام مهمان گرامی؛
به کیان ست خوش آمدید برای مشاهده انجمن با امکانات کامل می بايست از طريق این لینک عضو شوید.

http://teranzit.pw/uploads/14469017281.png
پیام خصوصی به مدیریت کل سایت ........... صفحه توضیحات و شرایط گروه ویژه ........... ...........
ارتباط تلگرامی با مدیریت سایت ................. ایدی تلگرام suportripair@ .................
نمایش نتایج: از شماره 1 تا 1 , از مجموع 1

موضوع: چگونه یک HotKey یا میان بر سیستم با استفاده از برنامه نویسی دلفی درست کنیم؟

  1. #1


    تاریخ عضویت
    Oct 2010
    نوشته ها
    198
    تشکر ها
    38
    401 سپاس از181 پست

    چگونه یک HotKey یا میان بر سیستم با استفاده از برنامه نویسی دلفی درست کنیم؟

    چگونه یک HotKey یا میان بر سیستم درست کرده و آن را مدیریت کنیم؟ (که در تمامی برنامه ها کار کند)
    مرجع: http://www.delphi3000.com/articles/article_3529.as p
    کد:
    {**********************  Copyright © by Jim McKeeth Licensed under LGPL ( http://www.gnu.org/licenses/licenses.html#LGPL ) Demo of creating a system wide hotkey or shortcut This was written in Delphi 7, but should work in most other versions (but obviously not Kylix) You need a form with 1) a THotKey named HotKey1 2) a TCheckBox named CheckBox1 To demo 1) Change the hotkey in the value 2) Check the box 3) Minimize the application 4) Press the hot key 5) Be impressed ———} unit SystemHotKeyUnit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, Co***rls, Dialogs, // Menus need to be added for calls in the code Menus; type TForm1 = class(TForm) HotKey1: THotKey; CheckBox1: TCheckBox; procedure FormCreate(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } protected // Handle the global hot key messages when they are sent to the window procedure HotyKeyMsg(var msg:TMessage); message WM_HOTKEY; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} var myAtom: integer; function ShiftState2Modifier(const Shift: TShiftState):Word; begin Result := 0; if ssShift in Shift then Result := Result or MOD_SHIFT; if ssAlt in Shift then Result := Result or MOD_ALT; if s***rl in Shift then Result := Result or MOD_CONTROL; end; function GetShortCutKey(ShortCut: TShortCut):Word; var shift: TShiftState; begin ShortCutToKey(ShortCut,Result,shift); // call in Menus! end; function GetShortCutModifier(ShortCut: TShortCut):Word; var key: Word; shift: TShiftState; begin ShortCutToKey(ShortCut,key,shift); // call in Menus! Result := ShiftState2Modifier(shift); end; function RegisterHotShortCut(const h:THandle; const Atom: integer; const ShortCut: TShortCut):Boolean; var key : Word; Shift: TShiftState; begin UnregisterHotKey(h,Atom); // call in Windows ShortCutToKey(ShortCut,key,shift); Result := RegisterHotKey(h,Atom,ShiftState2Modifier(Shift),key); end; procedure TForm1.FormCreate(Sender: TObject); begin // you need to type cast it as a pChar if you are using a string myAtom := GlobalAddAtom(pchar(‘HotKeyDemo’)); end; procedure TForm1.FormDestroy(Sender: TObject); begin UnregisterHotKey(Handle,myAtom); GlobalDeleteAtom(myAtom); end; procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked then RegisterHotShortCut(Handle,myAtom,HotKey1.HotKey) else UnregisterHotKey(Handle,myAtom); end; procedure TForm1.HotyKeyMsg(var msg: TMessage); begin if (msg.LParamLo=GetShortCutModifier(HotKey1.HotKey)) and (msg.LParamHi=GetShortCutKey(HotKey1.HotKey)) then begin Application.BringToFront; Showmessage(‘Hey, now that is a system wide hot key!’) end; end; end.
    [CENTER]:1205219183:
    [B][FONT=Tahoma][SIZE=3][COLOR=#0000ff][URL="http://kiansat3.ir/showthread.php?t=47100"]فروش جدیدترین و کاملترین پکیج نرم افزاری و بازی و آموزشی و تعمیراتی انواع موبایل ها بصورت کاملا فارسی به همراه چندین اشانتیون[/URL][/COLOR][/SIZE][/FONT][/B]
    [B]:1205219183::فقط خودت باش نه کسی دیگر!
    :lay:
    [/B][/CENTER]

  2. 2کاربر از Borna66 بخاطر ارسال این پست مفید سپاسگزاری کرده اند:

    ARIYA (5th May 2012),masoud-sat (4th May 2012)

اطلاعات موضوع

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

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

کلمات کلیدی این موضوع

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  


Copyright ©2000 - 2013, Jelsoft Enterprises Ltd کیــــــــــان ستـــــــــــ ...® اولین و بزرگترین سایت فوق تخصصی الکترونیک در ایران



Cultural Forum | Study at Malaysian University