procedure TForm1.Button1Click(Sender: T);
var
   PIDL:PItemIDList;
   Info:TShellExecuteInfo;
   pInfo:PShellExecuteInfo;
   WaitCode:DWord;
begin
 {get PIDL of the virtual folder}
   SHGetSpecialFolderLocation(Handle,
                              CSIDL_PRINTERS,
                              PIDL);
   {Pointer to Info}
   pInfo:=@Info;
   {Fill info}
 with Info do
 begin
    cbSize:=SizeOf(Info);
    fMask:=SEE_MASK_NOCLOSEPROCESS+
           SEE_MASK_IDLIST;
    wnd:=Handle;
    lpVerb:=nil;
    lpFile:=nil;
    {Executable parameters}
    lpParameters:=nil;
    lpDirectory:=nil;
    nShow:=SW_ShowNormal;
    hInstApp:=0;
    lpIDList:=PIDL;
   end;
   {Execute}
   ShellExecuteEx(pInfo);
   {Wait to finish}
 repeat
    WaitCode := WaitForSingle(Info.hProcess,500);
    Application.ProcessMessages;
   until (WaitCode <> WAIT_TIMEOUT);
end;

با سلام و آرزوی سلامتی.

 صفحه کلید ابتدایی ترین ورودی از آغاز پیدایش کامپیوتر بوده و احتمالا تا مدت زیادی بعد از این نیز این موقعیت را حفظ خواهد کرد. رویداد های صفحه کلید و همینطور رویدادهای ماوس از ابتدایی ترین عناصر رابط گرافیکی کاربر برنامه شما هستند. در این مقاله شما میآموزید که چگونه از این رویدادها برای افزایش کارایی رابط گرافیکی کاربر (GUI) برنامه خود استفاده نمایید.

برنامه های دلفی از طریق دو متد میتوانند از صفحه کلید ورودی دریافت کنند. اگه لازم است کاربر ورودی را از طریق صفحه کلید وارد برنامه نماید، ساده ترین راه استفاده از یک کامپوننت است که بصورت خودکار رویداد OnKeyPress را مدیریت میکند (مانند Edit یا Memo). گاهی اوقات لازم است ما با دقت و کارایی و انعطاف پذیری بیشتری رویدادهای صفحه کلید را، روی یک فرم یا هر کامپوننت دیگری که ورودی صفحه کلید را میپذیرد، مدیریت کنیم. در این صورت ما با ایجاد یک رویه (Procedure) از سه رویداد برای پاسخ دادن به فشرده شده یک کلید یا ترکیبی از کلیدها که کاربر در زمان اجرا ممکن است بفشارد، استفاده میکنیم، که این سه رویداد عبارتند از:

 ·         OnKeyDown : هنگام فشرده شدن یک کلید روی صفحه کلید فراخوانی میشود.

·         OnKeyUp : هنگام رها شدن یک کلید فشرده شده فراخوانی میشود.

·         OnKeyPress: هنگام فشردن یک کلید کاراکتری فراخوانی میشود.

فارسی کردن منوی سیستمی:

برخی اوقات برنامه نویسان تا آنجا پیش میبرند که به فارسی کردن تمامی منوهای سیستمی پروژه خود می پردازند برای مثال نمونه ای از فارسی نمودن یکی از دیالوگ های معروف فرم بنام منوی سیستمی رو براتون میزارم امیدوارم که ازش بتونید استفاده کنید.

در OnCreateForm خود قرار دهید

 procedure TForm1.FormCreate(Sender: T);
const
 strCLOSE = "خروج";
 strmin="کمینه";
 strMax="بیشینه";
 strmov="جابجایی";
 strRes=بازگشت به حالت قبل";
 strsiz="اندازه";
var
 SysMenu : HMenu;
 MenuItemInfo : TMenuItemInfo;
begin
 SysMenu := GetSystemMenu(Handle, FALSE);

 FillChar(MenuItemInfo,SizeOf(TMenuItemInfo), #0);
 MenuItemInfo.cbSize     := SizeOf(TMenuItemInfo);
 MenuItemInfo.fMask      := MIIM_TYPE or MIIM_ID or MIIM_STATE;
 MenuItemInfo.fType      := MFT_STRING;

 MenuItemInfo.wId        := SC_CLOSE;
 MenuItemInfo.dwTypeData := strCLOSE;
 MenuItemInfo.cch        := Length(strCLOSE);
  SetMenuItemInfo(SysMenu, SC_CLOSE, FALSE, MenuItemInfo);

 MenuItemInfo.wId        := SC_MINIMIZE;
 MenuItemInfo.dwTypeData := strmin;
 MenuItemInfo.cch        := Length(strmin);
  SetMenuItemInfo(SysMenu, SC_MINIMIZE, FALSE, MenuItemInfo);

  MenuItemInfo.wId        := SC_MAXIMIZE;
 MenuItemInfo.dwTypeData := strMax;
 MenuItemInfo.cch        := Length(strMax);
  SetMenuItemInfo(SysMenu, SC_MAXIMIZE, FALSE, MenuItemInfo);

 MenuItemInfo.wId        := SC_MOVE;
 MenuItemInfo.dwTypeData := strmov;
 MenuItemInfo.cch        := Length(strmov);
  SetMenuItemInfo(SysMenu, SC_MOVE, FALSE, MenuItemInfo);

 MenuItemInfo.wId        := SC_SIZE;
 MenuItemInfo.dwTypeData := strsiz;
 MenuItemInfo.cch        := Length(strsiz);
  SetMenuItemInfo(SysMenu, SC_SIZE, FALSE, MenuItemInfo);

   MenuItemInfo.wId        := SC_RESTORE;
 MenuItemInfo.dwTypeData := strRes;
 MenuItemInfo.cch        := Length(strRes);
  SetMenuItemInfo(SysMenu, SC_RESTORE, FALSE, MenuItemInfo);

end;

 
منتظر بقیه مطالب حتماَ باشید.

Speed test