Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
18.07.2001. Ocu perl na sopstvenoj masini
20.05.2003. Naziv direkrorijuma-Vise reci sa razmakom
23.05.2003. Qt 3
03.02.2004. povezivanje php n sa bazom
27.02.2004. PHP ne može da otvori include fajl pa ne mogu da..
05.04.2004. session_start() greska (/tmp no such directory na..
27.04.2004. Neke verovatno pocetnicke greske...

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

Pronalazenje putanje Program Files

[es] :: Visual Basic 6 :: Pronalazenje putanje Program Files

Strane: 1 2

[ Pregleda: 5876 | Odgovora: 27 ] > FB > Twit

Autor

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr

+8 Profil

Pronalazenje putanje Program Files

^{06.07.2004. u 10:06 - pre 241 meseci}

Ovaj kod ide u Moduel... On je namjenjen da traži Windows Folder a meni treba taki kod koji traži Program Files... može li neko to napravit za Program Files?

Code:
Public Const max_path = 260
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
(ByVal lpbuffer As String, ByVal nsize As Long) As Long
Public Function WinDir_func() As String
  Dim lpbuffer As String
  Dim windir As String
  lpbuffer = Space$(max_path)
  WinDir_func = Left$(lpbuffer, GetWindowsDirectory(lpbuffer, max_path))
' save default windows path in this variable :)
End Function

Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Pronalazenje putanje Program Files

^{06.07.2004. u 10:23 - pre 241 meseci}

Windows je sistemski folder i on je jednoznacan na sistemu i zato postoji funkcija kojom mozes da ga dobijes. Kad instaliras neki program, path moze da se customizije (znaci, ne mora da ide u program files, ili moze da bude program files na nekoj drugoj particiji).

Probaj da proveravas da li Program Files folder postoji u rootu svakog od driveova na sistemu (vidi top topic o FSO za neophodne funkcije). Znaci teoretski je moguce da postoji > 1 program Files foldera. Takodje, teoretski je moguce da Program Files ne bude u rootu drivea.

Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr

+8 Profil

Re: Pronalazenje putanje Program Files

^{06.07.2004. u 10:28 - pre 241 meseci}

Ne kužim ja to... Možeš li ti to kako pokušat napravit jer ja nemam pojma kako

Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Pronalazenje putanje Program Files

^{06.07.2004. u 10:44 - pre 241 meseci}

U ovoj poruci imas prolazak kroz sve driveove na sistemu. Potrebno je da type drivea bude Fixed. Onda u DriveLetter propertyju imas da li je C,D,E, ... Na DriveLetter konkateniras "Program Files" i proveravas da li postoji folder (FolderExists metod) C:\Program Files, D:\Program Files, ....

Odgovor na temu

Ero S Ovoga Sveta

Član broj: 21509
Poruke: 173
*.teol.net

Profil

Re: Pronalazenje putanje Program Files

^{16.07.2004. u 02:22 - pre 240 meseci}

U Registry bazi u :HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramFilesDir
stoji gdje se nalazi program files. Iscitaj odatle. A mislim da se na isttom mjestu nalazi i u NT platformi a i u WIN 9x platformi windowsa.

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12850

+4784 Profil

Re: Pronalazenje putanje Program Files

^{16.07.2004. u 10:20 - pre 240 meseci}

To ti je najsigurniji nacin a postoji i laksi. Koristi sistemsku promenljivu
%ProgramFiles%. Npr. Shell ("%ProgramFiles%\intenet explorer\iexplore.exe") pokrece IE.

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr

+8 Profil

Re: Pronalazenje putanje Program Files

^{16.07.2004. u 11:29 - pre 240 meseci}

Kad upišem ovo što si rekao:

Code:

Shell ("%ProgramFiles%\intenet explorer\iexplore.exe")

Dođe mi error:

Run-Time error "53":
File not found

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12850

+4784 Profil

Re: Pronalazenje putanje Program Files

^{16.07.2004. u 15:16 - pre 240 meseci}

Vidi stvarno. Kad sam postovao disam stigao da prethodno proverim. A radi kada u konzoli kucas tu putanju. I u Start>Run... Nemam pojma zasto ne radi. Mislim da sam ranije radio sa ovim sistemskim promenljivima.
Pa nista, onda ti preostaje da procitas onu vrednost iz Registry-a (to je zapravo vrednost te sistemske promenljive).

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

Ero S Ovoga Sveta

Član broj: 21509
Poruke: 173
*.teol.net

Profil

Re: Pronalazenje putanje Program Files

^{17.07.2004. u 02:19 - pre 240 meseci}

Skoni ovaj class module u kome imes sve za rad sa registri-jem.:
http://solair.eunet.yu/~alas/misc/registry.zip

imenuj ga sa npr. "clsReg"

Code:

Dim Registri
Dim strKeyValue As String
Dim strHDD As String

Set Registri = New clsReg
    Registri.hkey = &H80000002
    Registri.KeyRoot = "SOFTWARE"
    Registri.Subkey = "Microsoft\Windows\CurrentVersion"

        strKeyValue = Registri.GetRegistryValue("ProgramFilesDir")

         strHDD = Left(strKeyValue, 3)

Set Registri = Nothing

I dobio si gdje se nalazi Program Files.

______________________________________
Ero

Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr

+8 Profil

Re: Pronalazenje putanje Program Files

^{17.07.2004. u 08:15 - pre 240 meseci}

Misliš da stavim sve ono što sam skinuo sa tog sajta u class module,eli?
A što onda s ovim.... Di to treba stavit....

Code:

Dim Registri
Dim strKeyValue As String
Dim strHDD As String

Set Registri = New clsReg
    Registri.hkey = &H80000002
    Registri.KeyRoot = "SOFTWARE"
    Registri.Subkey = "Microsoft\Windows\CurrentVersion"

        strKeyValue = Registri.GetRegistryValue("ProgramFilesDir")

         strHDD = Left(strKeyValue, 3)

Set Registri = Nothing

Ako ništa onda ti to napravi kako treba i uplodaj to ispod poruke....

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12850

+4784 Profil

Re: Pronalazenje putanje Program Files

^{17.07.2004. u 10:27 - pre 240 meseci}

Pa u strKeyValue ti se nalazi putanja. Taj kod stavis gde hoces (gde ti treba da pronadjes putanju).

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Pronalazenje putanje Program Files

^{17.07.2004. u 10:35 - pre 240 meseci}

I probaj da koristis break pointe i Debug.Print

Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Pronalazenje putanje Program Files

^{13.08.2004. u 18:10 - pre 239 meseci}

Code:

Option Explicit

Private Declare Function SHGetSpecialFolderPath _
   Lib "shell32.dll" _
   Alias "SHGetSpecialFolderPathA" _
   (ByVal hWnd As Long, _
   ByVal lpszPath As String, _
   ByVal nFolder As Integer, _
   ByVal fCreate As Boolean) As Boolean

Private Const CSIDL_PROGRAM_FILES = &H26

Private Sub Form_Load()
Dim blnReturn As Long
   Dim strBuffer As String
   strBuffer = Space(255)
   blnReturn = SHGetSpecialFolderPath(0, _
      strBuffer, _
      CSIDL_PROGRAM_FILES, _
      False)

   strBuffer = Left(strBuffer, InStr(strBuffer, Chr(0)) - 1)
   MsgBox strBuffer
End Sub

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: Pronalazenje putanje Program Files

^{15.08.2004. u 01:06 - pre 239 meseci}

Ne mogu da skinem taj modul. FlashGet mi izbacuje poruku da path nije valid a kada pokusam bez flashget-a dobijem page not found!

Ako neko moze (ko je skinuo modul) nek mi posalje na mail, i meni treba jedan modul koji ima sve sa rad sa registrijem (ja sam po nekim sajtovima nakupio dosta toga ali nigde nemam modul koji moze da cita\pise binary vrednosti...pitam se dal' moze ovaj?)

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr

+8 Profil

Re: Pronalazenje putanje Program Files

^{04.09.2004. u 23:09 - pre 239 meseci}

Ni ja nisam uspio skinuti onaj moduel.. a sad mi je potreban....

Odgovor na temu

Ero S Ovoga Sveta

Član broj: 21509
Poruke: 173
*.teol.net

Profil

Re: Pronalazenje putanje Program Files

^{05.09.2004. u 13:39 - pre 239 meseci}

Evo u uploadu uz poruku.

Prikačeni fajlovi

Reg.rar

Reg.rar - 5.09k

Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr.

+8 Profil

Re: Pronalazenje putanje Program Files

^{12.11.2004. u 14:17 - pre 236 meseci}

Poz.
Kolko je sigurno tražit lokaciju Program Filesa iz registrija? Isprobavao sam to i čini mi se OK....

Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr.

+8 Profil

Re: Pronalazenje putanje Program Files

^{12.11.2004. u 14:25 - pre 236 meseci}

Evo još jedno pitanje, koje nema baš veze sa ovim ali ipak je malo povezano:
Spominjali ste ovu promjenjivu za PF:

Code:

%ProgramFiles%

A sad mene zanima imaju li take promjenjive za disk na kojem je Windows i Documents and Settings?

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12850

+4784 Profil

Re: Pronalazenje putanje Program Files

^{12.11.2004. u 14:46 - pre 236 meseci}

Ima. Sve su Registry-u.

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Pronalazenje putanje Program Files

^{12.11.2004. u 14:47 - pre 236 meseci}

Environ Function Example
This example uses the Environ function to supply the entry number and length of the PATH statement from the environment-string table.

Code:

Dim EnvString, Indx, Msg, PathLen   ' Declare variables.
Indx = 1   ' Initialize index to 1.
Do
   EnvString = Environ(Indx)   ' Get environment
            ' variable.
   If Left(EnvString, 5) = "PATH=" Then   ' Check PATH entry.
      PathLen = Len(Environ("PATH"))   ' Get length.
      Msg = "PATH entry = " & Indx & " and length = " & PathLen
      Exit Do
   Else
      Indx = Indx + 1   ' Not PATH entry,
   End If   ' so increment.
Loop Until EnvString = ""
If PathLen > 0 Then
   MsgBox Msg   ' Display message.
Else
   MsgBox "No PATH environment variable exists."
End If

Lista environment varijabli: My Computer, right click Properties, Advanced, Environment Variables

Odgovor na temu

[es] :: Visual Basic 6 :: Pronalazenje putanje Program Files

Strane: 1 2

[ Pregleda: 5876 | Odgovora: 27 ] > FB > Twit

Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
18.07.2001. Ocu perl na sopstvenoj masini
20.05.2003. Naziv direkrorijuma-Vise reci sa razmakom
23.05.2003. Qt 3
03.02.2004. povezivanje php n sa bazom
27.02.2004. PHP ne može da otvori include fajl pa ne mogu da..
05.04.2004. session_start() greska (/tmp no such directory na..
27.04.2004. Neke verovatno pocetnicke greske...

Navigacija

Lista poslednjih: 16, 32, 64, 128 poruka.