Printable View
حتما می پرسید چرا این عنوان رو انتخاب کردم من در فروم دیگری که تخصصش برنامه نویسی بود سوالی پرسیدم که حتی جواب ندادن میشه یا نه
API هایی هستند که با گرفتن عنوان برنامه ای و فرستادن یک مقدار ثابت(Const) عملیاتی بر روی برنامه انجام میدن برای مثال برنامه رو می بندن سوال من از اینجا شروع میشه که آیا می توان مسیر قرار گیری و نام برنامه رو هم گرفت؟!
سلام بر شما
هیچ چیزی غیر ممکن نیست.
میبخشید ولی این قسمت رو متوجه نشدم:
میشه یکم واضح تر بگید؟نقل قول:
ه آیا می توان مسیر قرار گیری و نام برنامه رو هم گرفت؟!
یه مثال می زنم: می دونید که وقتی CTRL+ALT+DEL می گیرید برنامه ای باز میشه که بالاش نوشته Windows Task Manager (منظورم همون عنوانه برنامه ) API هایی هستند که با گرفتن همین عنوان برنامه رو می تونند قفل کنند (freeze) یا ببندن یا مخفی یا ظاهر کنند یا هر چیز دیگه ولی من فقط می خوام نام برنامه و مسیری که برنامه در اونجا قرار داره رو بگیرم برای همین مثال
اگه این کار شدنی باشه (که شک دارم کسی جوابشو بدونه) اون چیزی که می خوام اسم ومسیرشه:
c:\windows\system32\taskmgr.exe
همین. اومرا بشه(من که امیدی ندارم)
در نا امیدی بسی امید است...!
چرا اینطوری فکر میکنی؟
بفرما اینم جواب:
1- یک عدد Command Button به فرم اضافه کنید. 2- کد زیر را هم به پروژه اضافه کنید. 3- فقط حال کنید :دی
اینم پاسخ شما در سه حرکت زیبا!!!کد:Const TH32CS_SNAPMODULE = &H8
Private Type MODULEENTRY32
dwSize As Long
th32ModuleID As Long
th32ProcessID As Long
GlblcntUsage As Long
ProccntUsage As Long
modBaseAddr As Long
modBaseSize As Long
hModule As Long
szModule As String * 256
szExePath As String * 260
End Type
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Module32First Lib "kernel32" (ByVal hSnapshot As Long, uProcess As MODULEENTRY32) As Long
Private Sub Command1_Click()
MsgBox GetExePath("Windows Task Manager")
End Sub
'------**------
Private Function GetExePath(TargetWindowCaption As String) As String
Dim TargetWnd As Long
Dim TargetProcess As MODULEENTRY32
Dim TargetProcessID As Long
Dim hSnapshot As Long
TargetWnd = FindWindow(vbNullString, TargetWindowCaption)
If TargetWnd = 0 Then
GetExePath = "Not found"
Exit Function
Else
Call GetWindowThreadProcessId(TargetWnd, TargetProcessID)
End If
hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, TargetProcessID)
TargetProcess.dwSize = Len(TargetProcess)
Call Module32First(hSnapshot, TargetProcess)
GetExePath = TargetProcess.szExePath
End Function
فقط دیگه نگی امید ندارم نمیشه غیر ممکنه جواب نداره ...
همیشه بدون که یه راهی هست. در ضمن VB6 هیچ وقت کم نمیاره و همیشه در کنار شماست.
اگر تاپیکی بی پاسخ موند بهم پی ام بزنید.
سپاسگزارم. موفق باشید :11:
متشکرم دوست عزیز
اگه میشه به این پست من هم که بی جواب مونده یه سری بزنید:
کد:http://www.forum.p30world.com/showthread.php?t=295238
داداش این تاپیک من بی باسخ نمونده ولی تا حالا کسی نتونسته مشکل منو حل کنه .
شما یک نگاه بهش بنداز شاید مشکلم به دست شما حل شه .
اینم آدرس تاپیک
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]