تابع api

[mohsen_sh]

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
همانطور که می دانید از این دو تابع جهت غیر فعال کردن دکمه close در title bar استفاده می گردد از دوستان اگر کسی در مورد مقادیری که به عنوان پارامتر باید برای توابع بالا ارسال کرد اطلاع دارند ذکر کنند
تابع اول اشاره گری از یک منوی سیستمی می دهد یا اینکه عمل reset را انجام می دهد حال برای هر کداتم چه مقداری باید ارسال کرد)(پرامتر دوم تابع اول
تابع دوم بر اساسس شماره دکمه آنرا غیر فعال می کند که این دکمه یا نسبت به منوی سیستمی سنجیده می شود و یا به پنجره اصلی
من فقط در مورد مقادیر ارسالی مشکل دارم مثلا برای reset?
یا مثلا غیر فعال کردن minimon,;;;;

[sohrab o]

قبلا توی سایت یه بار نوشتم باید بگردی

Public Sub DisableXbutton(ByVal frmHwnd As Long)
Dim hMenu As Long
hMenu = GetSystemMenu(frmHwnd, 0&)
If hMenu Then
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
DrawMenuBar (frmHwnd)
End If
End Sub


Public Const SC_CLOSE = &HF060
Public Const MF_BYCOMMAND = &H0
Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function DeleteMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long


باید از این دو تا کد استفاده کنی

[mohsen_sh]

ممنو ن از راهنما ئی شما دوست عزیز
ولی این دو ثابت بالا در api اول کاربرد دارند در api دوم مثلا برای غیر فعال کردن minimom چگونه تابع رافراخوانی کنم لطفا با مثال ذکر کنید
من فقط ثابتها را نیاز دررم