کمک

[senator_aka]

سلام.
من می خواستم بدونم که چطور می شه فولدر مربوط به ویندوز را در vb6 پیدا کرد.
از آنجایی که ممکنه ویندوز در هر درایوی نصب بشه من می خواستم بدونم که چطور میشه با اجرای برنامه فهمید که ویندوز در کدام درایو هست.؟ !!!!!

سوال دوم اینه که چطور میشه ما فایل هایی که نیاز داریم رو در یک dll یا یه cab قرار دهیم که فقط با درست کردن exe برنامه، خود برنامه از dll بخونه. یعنی برنامه بصورت setup نباشه که خودش درست کنه بلکه ما برنامه را بصورت exe کامپایل کنیم و بعد آدرس فایل مورد نیاز ( مثلا آهنگ) را از dll که ساختیم بخونه و اجرا کنه.

با تشکر فراوان
امیر اکبری
mr.AmirAkbari@gmail.com

[romina2006]

سوال 1 :


Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
Dim Buffer As String
Buffer = String(200, 0)
GetWindowsDirectory Buffer, Len(Buffer)
Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
Text1.Text = Buffer
End Sub

[oVERfLOW]

Environ$("windir")

[__siavash__]

تابع
Environ({envstring | number})

اینم یه مثال برای برسی این تابع که شما برای گرفتن جواب سوالتون باید به تابع عدد 25 یا26 را بدهید