تغییر منو پیش فرض ویندوز

دوستان عزیز سلام من می خواستم ببینیم که میشه فقط برای برنامه ی خودم وقتی که روی تسکبار و روی برنامه ی من راست کلیک کنید و منوی راست کلیک اون ظاهر میشه مقدار های انگلیسی اونرو به فارسی تبدیل کرد...

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

لطفا کمکم کنید...

:13:

ای بابا هیچ کسی نیست تو این انجمن کمک کنه...

خب اگه نمیشه بگین دیگه.تا اینقدر منتظر نمونم...

سلام!

من نشستم این کد رو نوشتم بعد که اجراش کردم دیدم راست چین نیست -- دوباره
تلاش کردم تونستم کاری کنم که راست چین هم بشه (نوشته ها از راست به چپ بشن)! :21:

بعدش دیدم دیگه خبری از آیکان ها نیست و فقط نوشته ها هستن -- کلی گشتم تو فروم های
خارجی ولی دیدم اونا خنگ ترن چون همین کد به این سادگی رو ور داشته بودن هزار بار دور وی بی پیچونده بودن :31:
تازه بازم اونا هم آیکان هاش از بین میرفت!

دیگه نمیدونم چجوری میشه با آیکان باشه :13: -- شاید خودت بتونی آیکان هاش رو پیدا کنی و به منوها بچسبونی.

خلاصه سرتو درد نیارم بیا اینم کدی که خودم نوشتم:

کد:

---

Private Const MF_STRING = &H0&
Private Const MF_SYSMENU = &H2000&

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long
Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

Private Sub Form_Load()
  Dim hM As Long
  Dim ItemID As Long
 
  hM = GetSystemMenu(Me.hwnd, False)
 
 
  '  "Restore"
  ItemID = GetMenuItemID(hM, 0)
  ModifyMenu hM, ItemID, MF_STRING + MF_SYSMENU, ItemID, "بازگرداندن"
 
  '  "Move"
  ItemID = GetMenuItemID(hM, 1)
  ModifyMenu hM, ItemID, MF_STRING + MF_SYSMENU, ItemID, "جابجایی"
 
  '  "Size"
  ItemID = GetMenuItemID(hM, 2)
  ModifyMenu hM, ItemID, MF_STRING + MF_SYSMENU, ItemID, "اندازه"
 
  '  "Minimize"
  ItemID = GetMenuItemID(hM, 3)
  ModifyMenu hM, ItemID, MF_STRING + MF_SYSMENU, ItemID, "کوچکنمایی"
 
  '  "Maximize"
  ItemID = GetMenuItemID(hM, 4)
  ModifyMenu hM, ItemID, MF_STRING + MF_SYSMENU, ItemID, "بزرگنمایی"
 
  '  "Close"
  ItemID = GetMenuItemID(hM, 6)
  ModifyMenu hM, ItemID, MF_STRING + MF_SYSMENU, ItemID, "بستن"
End Sub

---

بازم اگه مشکلی بود ما در کنارتیم (هیچکس تنها نیست :31:)
متشکرم :11:

دوست عزيز از شما خيلي متشكرم.

واقعا كارم راه انداختين خيلي ممنونم...

متشكرم ميرم امتحان مي كنم اگه مشكلي بود مزاحم مي شم...

بازم خيلي ممنون...

:46::46::46: