[ nuntius @ 22.04.2004. 21:51 ] @
Pozdrav svima...
Da li mi neko moze reci kako bi bio kod u VB ako ocu da npr. prokrenem neki program iz foldera u kom je instaliran windows (recimo notepad.exe).
E sad, ako je folder po default, tj. ako je na lokaciji "C:\windows" lako je napisati "Shell "C:\windows\notepad.exe", ali sta ako ne znam u kom je folderu... tj. ako je prilikom instaliranja OS-a izabrat neki drugi folder... kako onda? Pokusao sam sa %Systemroot%... nije islo. Pls Help!
Takodje mi nije jasno kako pokrenuti program koji se nalazi u istom folderu u kom i moj program. Cini mi se da komanda "shell "...\nekiprog.exe"" ne radi.

Unapred hvala...

[Ovu poruku je menjao mladenovicz dana 03.05.2004. u 16:15 GMT]
[ Nemanja Dubravac @ 22.04.2004. 22:13 ] @
za programe iz windows-ovog folder mislim da bi radilo i shell "notepad.exe", a za programe iz foldera gde se nalazi i pokrenuti program, koristi Application.ExecutablePath (ili sl. se zove)

znaci shell Application.ExecutablePath + "\bla.exe"
[ mladenovicz @ 23.04.2004. 10:26 ] @
shell App.Path + "\bla.exe"
[ vujkev @ 26.04.2004. 21:02 ] @
Sve sistemske foldere mozes dobiti pozivanjem API funkcija. Trenutno nemam MSDN da bih ti rekao koja je (s*ebao mi se CD tako da ako je neko voljan da mi da diskove na kopiranje nek se javi), ali 1000% sam siguran da postoji funkcija. Ako je nadjem negde javicu
[ mladenovicz @ 27.04.2004. 09:45 ] @
Imena funkcija govore sve :)

Code:

Private Declare Function GetSystemDirectory Lib "kernel32" Alias _
"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
    Dim sSave As String, Ret As Long
    'Create a buffer
    sSave = Space(255)
    'Get the system directory
    Ret = GetSystemDirectory(sSave, 255)
    'Remove all unnecessary chr$(0)'s
    sSave = Left$(sSave, Ret)
    'Show the windows directory
    MsgBox "Windows System directory: " + sSave
End Sub


Code:

Declare Function GetWindowsDirectory Lib "kernel32" Alias _
"GetWindowsDirectoryA"  (ByVal lpBuffer As String, ByVal nSize As Long) As Long