بدست آموردن آدرس و نام فایل جاری با API

[yeketaz]

سلام

چه جوری می شه آدرس و نام فایل جاری رو بدون استفاده از App و با توابع API بدست آورد؟

[ΛΛ Θ l-l $ Σ Ω]

سلام من این تاپیک رو الان دیدم نمی دونم بدردتون میخوره یا نه.
اولی برای پیدا کردن دایرکتوری WindowS
دومی برای پیدا کردن مسیر Temp به کار میره.
سومی برای پیدا کردن مسیر system32
و چهارمی هم برای پیدا کردن مسیر جاری.

کد:

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

اینم یه مثال برای کار با این API ها.

کد:

Private Sub Form_Load()
    Dim WindowsDir As String
    Dim SystemDir As String
    Dim TempDir As String
    Dim CurrentDir As String

    CurrentDir = Space(256)
    WindowsDir = Space(256)
    SystemDir = Space(256)
    TempDir = Space(256)
    
    GetWindowsDirectory WindowsDir, Len(WindowsDir)
    txtWindows.Text = WindowsDir
    GetSystemDirectory SystemDir, Len(SystemDir)
    txtSystem.Text = SystemDir
    GetTempPath Len(TempDir), TempDir
    txtTemp.Text = TempDir
    GetCurrentDirectory Len(CurrentDir), CurrentDir
    txtCurrent.Text = CurrentDir
End Sub

[lord_viper]

فکر کنم این به درد بخوره اسم فایل exe خودتونو بهش پاس بدین

کد:

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

[ΛΛ Θ l-l $ Σ Ω]

فکر کنم این به درد بخوره اسم فایل exe خودتونو بهش پاس بدین

کد:

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

سلام
فکر نکنم این API که شما گذاشتید مناسب این کار باشه، آخه ممکنه که جای فایل تغییر کنه
همون GetCurrentDirectory بهتر نیست؟

[yeketaz]

از شما تشکر می کنم

مشکل من با پاوربیسیک 7 و 8 بود که این قابلیتها رو نداشت و هم چنین با پاوربیسیک که نمی دونستم چه طوری باید پسوند فایل جاری رو بدست اورد

ولی حالا ورژن 9 همه اینها رو داره

و مشکلی که من با این این توابعی که شما معرفی کردید داشتم این بود که پسوند و اسم فایل اجرای هم مشخص نبود