ايران ويج

سلام

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

سلام من این تاپیک رو الان دیدم نمی دونم بدردتون میخوره یا نه.
اولی برای پیدا کردن دایرکتوری 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

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

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

(۰۵-اسفند-۱۳۸۷, ۱۳:۰۹:۱۷)lord_viper نوشته است: [ -> ]فکر کنم این به درد بخوره اسم فایل exe خودتونو بهش پاس بدین

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

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

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

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

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

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

yeketaz

ΛΛ Θ l-l $ Σ Ω

lord_viper

ΛΛ Θ l-l $ Σ Ω

yeketaz