مسير فايل EXE

[mahmood_s]

با سلام
لطفا منو در مورد پيدا كردن مسير و نام يك فايل EXE در حال اجرا كمك كنيد

[.:KeihanCPU:.]

اگه منظورتون یرنامه در حال اجراست خوب اینه

Filepath=App.path & "\" & App.Exename & ".Exe"

[mahmood_s]

با تشكر از شما ، نه

منظورم اينه كه يه برنامه مثل ياهو و يا هر برنامه EXE ديگري كه در كامپيوتر در حال اجرا باشه بتونيم تمام برنامه هاي در حال اجرا رو ببينيم و وقتي روي يكي از اونها كليك كرديم نام و مسير اون برنامه رو بهمون بده

[Mbt925]

نمونه ی زیر کاملا روشنه.
با داشتن نام فایل اجرایی و هندل اون می تونید مسیرش رو بدست بیارید.




Private Declare Function GetModuleFileName Lib "kernel32.dll" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetModuleHandle Lib "kernel32.dll" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long


Private Sub Form_Load()

Dim sBuffer As String
Dim lhandle As Long, lResult As String, strpath As String

sBuffer = Space$(255)
lhandle = GetModuleHandle(App.EXEName)
lResult = GetModuleFileName(lhandle, sBuffer, 255)
strpath = sBuffer

MsgBox strpath

End Sub

[mahmood_s]

اگه ممكنه در مورد دستور فوق و هندل كمي توضيح بديد
ممنون

[مهران رسا]

منظورت اینه ؟!

[mahmood_s]

ببخشید منظورتون رو از تصویر بالا نفهمیدم

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

اگه ممکنه کمی بیشتر توضیح بدید . در صورت امکان یک مثال هم بزارید

[mahmood_s]

یه چیزی تو همین مایه ها

ممنون از توجه تون

[Mbt925]

هندل یه اشاره گره به پنجره های اشیاء ، برای اینکه ویندوز بتونه اونارو شناسایی کنه.

اون تابع با داشتن نام فایل اجرایی و هندلش مسیر رو بهتون میده.

[mahmood_s]

اگه ممكنه لطف كنيد و مثال را بذاريد و بگيد كه چه طوري هندل يك برنامه رو بدست بياريم

لطفا با مثال توضيح بديد

خيلي ممنون