[es] - Pronalazenje putanje Program Files

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

^{13.11.2004. u 21:17 - pre 238 meseci}

Code:

Const CSIDL_DESKTOP = &H0
Const CSIDL_PROGRAMS = &H2
Const CSIDL_CONTROLS = &H3
Const CSIDL_PRINTERS = &H4
Const CSIDL_PERSONAL = &H5
Const CSIDL_FAVORITES = &H6
Const CSIDL_STARTUP = &H7
Const CSIDL_RECENT = &H8
Const CSIDL_SENDTO = &H9
Const CSIDL_BITBUCKET = &HA
Const CSIDL_STARTMENU = &HB
Const CSIDL_DESKTOPDIRECTORY = &H10
Const CSIDL_DRIVES = &H11
Const CSIDL_NETWORK = &H12
Const CSIDL_NETHOOD = &H13
Const CSIDL_FONTS = &H14
Const CSIDL_TEMPLATES = &H15
Const MAX_PATH = 260
Private Type SHITEMID
    cb As Long
    abID As Byte
End Type
Private Type ITEMIDLIST
    mkid As SHITEMID
End Type
Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    'Show an about window
    ShellAbout Me.hWnd, App.Title, "Created by the KPD-Team 1999", ByVal 0&
    'Set the graphical mode to persistent
    Me.AutoRedraw = True
    'Print the folders to the form
    Me.Print "Start menu folder: " + GetSpecialfolder(CSIDL_STARTMENU)
    Me.Print "Favorites folder: " + GetSpecialfolder(CSIDL_FAVORITES)
    Me.Print "Programs folder: " + GetSpecialfolder(CSIDL_PROGRAMS)
    Me.Print "Desktop folder: " + GetSpecialfolder(CSIDL_DESKTOP)
End Sub
Private Function GetSpecialfolder(CSIDL As Long) As String
    Dim r As Long
    Dim IDL As ITEMIDLIST
    'Get the special folder
    r = SHGetSpecialFolderLocation(100, CSIDL, IDL)
    If r = NOERROR Then
        'Create a buffer
        Path$ = Space$(512)
        'Get the path from the IDList
        r = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal Path$)
        'Remove the unnecessary chr$(0)'s
        GetSpecialfolder = Left$(Path, InStr(Path, Chr$(0)) - 1)
        Exit Function
    End If
    GetSpecialfolder = ""
End Function

CSIDL_PERSONAL ti je za MyDocuments.

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

^{13.11.2004. u 21:22 - pre 238 meseci}

Ma to je sve OK, ali meni sam treba ona mala promjenjiva poput one:

Code:

%ProgramFiles%

I niš više. I još nešto, kolko je sigurno čitat putanju PF iz registrija

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

^{13.11.2004. u 23:27 - pre 238 meseci}

Ne razumem bas sta 'oces, al evo ocx kontrole koju sam napisao. Kontrola je zamena (nije bas neka, al dobro

) za Comdlg.ocx i ima funkcije:
OpenFile
SaveFile
PickFolder
GetSpecialFolder
Jednostavno je postavis na formu (a mozez i da iscupas parce koda koje ti treba

) i koristis GetSpecialFolder f-ju.

http://www.elitesecurity.org/poruka/fajluzporuku/494604

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

^{14.11.2004. u 08:12 - pre 238 meseci}

Ma nije to to! Krivo si me shvatio. Meni treba ona promjenjiva ko ona koju je Shadowed prvu postovao... Znači:

Code:

%ProgramFiles%

To radi u DOS-u, ja znam tako promjenjivu i za win folder, ali mi još treba za Documents and Settings i disk na kojem je Win. Znam da to postoji jer sam negdje vidio ali sam zaboravio gdje....

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: Pronalazenje putanje Program Files

^{14.11.2004. u 14:08 - pre 238 meseci}

Startuj Delphi, zatim idi Tools -> Environment Options i jezicak Environment Variables.

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4785 Profil

Re: Pronalazenje putanje Program Files

^{14.11.2004. u 14:09 - pre 238 meseci}

VRKY, toga u Registry-u ima na dosta mesta pa me, pravo da ti kazem, mrzi da sakupljam sve kljuceve (ne znam ni ja bas, bas ceo Registry napamet :)).
Evo nekih sistemskih promenljivih a ti potrazi jos:
%AppData%
%UserProfile%
%AllUsersProfile%
%ProgramFiles%
%SystemRoot%
%SystemDrive%
%Temp%
%Tmp%

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