دو سوال مهم در باره رایت کلیک

[shahrdartoope]

سلام به دوستان
اگر برنامه ای در حال اجرا باشه با رایت کلیک برروی اون در تسک بار منویی باز میشه که شامل (move,restor, maxize….) است اسم این منو چیه و چگونه میشه تغییرش داد ( اگه فقط اسمشم بدونم حله)


سوال دومم اینکه چطور میشه با رایت کلیک کردن بر روی فایلی در ویندوز آدرس اون فایل رو به یه تکست باکس تو برنامم بدم///

ممنون

[majid_kntu]

به اين منو System Menu مي گن براي دست كاريش بسته يه اينكه بخواهي چيزي ازش حذف كني يا چيزي بهش اضافه كني راه هاي مختلفي وجود داره
براي سوال دومت بهت توصيه مي كنم همچين برنامه اي ننويسي به جاش مثلا يك كليد تركيبي درست كن چون از نظر سيستماتيك معمولا Hook كردن سيستم نتايج ناخوشايندي داره.

[shahrdartoope]

مجید جان از اینکه بهم جواب دادی یک دنیا ممنون (کارمو راه انداختی)

در مورد سوال یک من 15 دلار خرج کردن (پول اینترنت دادم) تا پیدا کردن

Public Function CommLineFile()
Dim sFile As String

If Command$ <> "" Then
sFile = Command$ 'Get command line filename
End If
Text1.Text = sFile
End Function

Private Sub Form_Load()
If Command$ <> "" Then CommLineFile
End Sub


بازم ممنون

[black_storm]

&private const cmd=&h0
&private const pos=&h400
private declare function GetSystemMenu lib "user32" (byval hwnd as long ) as long
private declare function GetMenuItemCount lib "user32" (byval hmenu as long) as long
private declare function DrawMenuBar lib "user32" (byval hwnd as long) as long
,private declare function RemoveMenu lib "user32" (byval hmenu as long,byval nposition as long
byval wflag as long) as long


()private sub form load
dim hsysmenu as long,n as long
(hsysmenu=getsystemmenu(me.hwnd,false
if hsysmenu then
(n=getmenuitemcount(hsysmenu
text1.text=n
if n then
close menu '
removemenu hsysmenu , n-1,pos

seperator menu '
removemenu hsysmenu , n-2,pos

maximize menu '
removemenu hsysmenu , n-3,pos
minimize menu '

removemenu hsysmenu , n-4,pos
size menu '

removemenu hsysmenu , n-5,pos
move menu '

removemenu hsysmenu , n-6,pos
restore menu '

removemenu hsysmenu , n-7,pos
end if
end if
end sub