Printable View
عزيزان من در حال نوشتن يك برنامه هستم كه به چندتا توابع باحال نيازمندم از جمله از كار انداختن تسك منيجر
1.Task Manager = Enable
2.Always On Top = True هميشه بالايه بقيه پنجره ها باشه
3.و هميشه تو استارت آپ باشه !!!!!!!!!!!11
خواهش ميكنم اگه كسي ميتونه كمكم كنه لطفشو از من دريغ نكنه !؟:40:
برای یک میتونی از این تابع استفاده کنی
Private Declare Function FindWindowA Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
برای 2 هم از zorder کمک بگیری
برای 3 هم از رجیستری کمک بگیر
خیلی کلی گفتم بقیش با خودتون
سلام.
سوال اول سرچ کن بارها مطرح شده.
سوال دوم.
سوال سومم سرچ کن. اونم بارها مطرح شده.کد:Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Private Sub Timer1_Timer()
Dim result As Long
result = SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
End Sub
از این هم میشه استفاده کردنقل قول:
Private Declare Function BringWindowToTop Lib "user32" Alias "BringWindowToTop" (ByVal hwnd As Long) As Long
این تابع برنامه رو فقط یک بار به بالای بقیه ی پنجره ها میاره. یعنی اگه رو یه پنجره ی دیگه کلیک کنیم، این یکی میره پایین.نقل قول:
ولی SetWindowPos برای همیشه.
بله میدونم ولی میشه تو یک تایمر ساده قرارش داد برای کار ایشون فکر کنم راحت تر باشه
همچین حرفی از شما بعیده.
اینجوری باید یه جورایی لقمه رو دور سرمون بچرخونیم. تازه اونقدر هم سخت تر میشه و کیفیت کار هم پایین میاد.