Pfad zu Program (Ordner) herausfinden

[X360 Andy]

Nein das is nicht die Frage die schon 100 mal beantwortet ist

Ich möchte DEN pfad herausfinden wo alle Programme des Computers sind.
In meinem Fall "C:\Program Files" , es gibt doch bestimmt sowas wie
GetHomeDirectory() oder GetTemporaryDirectory() oder ?


Suche und Hilfe von PB hab ich benutzt = 0
Sogar Api´s durchsucht

Mfg

[Xaby]

Das Problem wird sein, dass man zu mindest bei den WindowsVersionen vor
Windows Vista ja die Ordner selbst definieren konnte.

Bei Windows XP ist es in der deutschen Version ein anderer Ordner als
in der amerikanischen.

Und dann kommt noch dazu, dass man ja in den meisten Programmen
den Installationsordner selbst definieren kann.



Ansonsten mal hier schauen
http://msdn.microsoft.com/de-de/library/bb979138.aspx

[X360 Andy]

Und wie machen das dann die Setup-Installer ?
Da wurden ja auch welche in PB geschrieben ... dort wird auch automatisch MEIN Pfad gefunden...

Muss mir die Seite mal durchlesen ... thx

EDIT
CSIDL_PROGRAM_FILES = &H26& ' C:\Programme

müsste es sein oder ?
und wie setzte ich das jetzt richtig in PB um ?

[Xaby]

Am besten mal Kontakt mit den Machern vom EasySetup aufnehmen.
Glaube so hieß der Installer von PureBasic.

Bei Vista heißt das Ding wohl immer "Program Files"
Du könntest also auch überprüfen, ob ein "Programme" Ordner existeriert
und oder ein "Program Files" Ordner. Würde zu mindest für den englisch sprachigen Raum und für den deutschsprachigen Raum funktionieren.

Und je nach dem, wo die meisten Programme installiert sind,
das schlägste dann als Installationsordner vor.

Ist natürlich nicht die ideale Lösung

[Bisonte]

auch auf die gefahr hin TS-Soft zu wiederholen

Code: Alles auswählen

Procedure.s File_GetSpecialFolder(CSIDL)

  Protected *itemid.ITEMIDLIST
  Protected location.s = Space(#MAX_PATH)

  If SHGetSpecialFolderLocation_ (0, CSIDL, @*itemid) = #NOERROR
    If SHGetPathFromIDList_(*itemid, @location)
      CoTaskMemFree_(*itemid)
      If Right(location, 1) <> "\" : location + "\" : EndIf
      ProcedureReturn location
    EndIf
  EndIf
endprocedure

Debug File_GetSpecialFolder(#CSIDL_PROGRAM_FILES)

[X360 Andy]

Danke an euch beiden

[Bisonte]

EDIT
CSIDL_PROGRAM_FILES = &H26& ' C:\Programme

müsste es sein oder ?

Naja Du hattest es ja schon fast

[Kaeru Gaman]

.... ich würde ja erst mal in die Liste der Umgebungsvariablen schauen...

ebenso wie es %SYSTEM% gibt, gibt es garantiert auch %PROGRAMS% oder so ähnlich.
diese Variable enthält dann zuverlässig den PATH$,
auch wenn das ding "D:\Hoita Programma" heißt...

[ts-soft]

.... ich würde ja erst mal in die Liste der Umgebungsvariablen schauen...

ebenso wie es %SYSTEM% gibt, gibt es garantiert auch %PROGRAMS% oder so ähnlich.
diese Variable enthält dann zuverlässig den PATH$,
auch wenn das ding "D:\Hoita Programma" heißt...

So eine Umgebungsvariable gibt es nicht. Die API ist auch zuverlässiger,
solange Pfade abgefragt werden, die auch unterstützt werden, abhängig
vom IE und Winversion.

Für Win-, Sys- und Tempdir sollte man es nicht nehmen, sondern die
spezielle API