به دست آوردن نام فایل استفاده کننده از OCX

[MEhdi Sobhani]

سلام
آیا راهی وجود داره که یه اکتیو ایکس تشخیص بده چه فایل یا فایلهای اجرایی ( اسم و آدرس فایل exe روی هارد ) دارن ازش استفاده میکنه ؟
با تشکر فراوان .

[vbhamed]

سلام

در حالت معمول كه فكر نمي كنم چون ممكنه خود شما الان يك برنامه بنويسيد كه از اون اكتيوايكس استفاده كنه و 2 دقيقه بعد يك برنامه ديگه كه حتي هنوز يكبار هم اجرا نشده

اما وقتي اون برنامه ها در حال اجرا باشن شايد بشه تشخيص داد

[parselearn]

اين پروژه ميتونه كمكتون كنه
http://barnamenevis.org/forum/showthread.php?t=188489

[MEhdi Sobhani]

سلام

منون از راهنمایی ها تون جناب parselearn و vbhamed
راه حل رو پیدا کردم :



Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Function GetAppFilename() As String
Dim hModule As Long
Dim buffer As String * 256
hModule = GetModuleHandle(App.EXEName)
GetModuleFileName hModule, buffer, Len(buffer)
GetAppFilename = Left$(buffer, InStr(buffer & vbNullChar, vbNullChar) - 1)
End Function

اگر این کد در خود فایل اجرایی exe استفاده بشه اسم فایل رو بر میگردونه . اگه فایل رو رینیم هم کرده باشیم ، اسم جدید رو میده .
داخل ocx استفاده کردم و ocx رو در یک فایل دیگه استفاده کردم و امتحان کردم ، این طوری اسم فایل اجرایی که از ocx استفاده کرده رو بر گردوند .
موفق باشید .