Programmpath

[Pseudemys Nelsoni]

hoi, womit bekomme ich den programpath raus? ich möchte von meinem programm aus seiten aufrufen....wenn aber ein ami es bentutz is der ordner ja nicht "programme" sondern "program files" (z.b).

Achja und wie kriege ich raus auf welcher partition windows installiert ist?

[Dagon]

Meinst du mit Programmpfad z.B. C:\Programme?
Dann hilft dir das vieleicht weiter.

[Pseudemys Nelsoni]

hallo, nein, so ein langer code kann nicht nur dazu da sein die default ordner zu finden. (aber danke ;))

ich meinte eigentlich..es muss doch sowas wie $WINDIR$ und das gleiche auch für den programm ordner geben, oder?

[Christian Seehase]

Moin Silent,

such mal hier nach SHGetSpecialFolderPath (dann zu verwenden mit CSIDL_PROGRAM_FILES, CSIDL_WINDOWS).
Alternativ könntest Du auch die Umgebungsvariable PROGRAMFILES (SYSTEMROOT) auslesen.
Im zweiten Falle muss dann nur der Laufwerksbuchstabe extrahiert werden.

[Frank Reiser]

Auch hier ein Antort von mir. Es gibt mehrere Möglichkeiten den Pfad zu bestimmen:

Delphi-Quellcode:

Var Verzeichnis:string;

begin
Verzeichnis:=GetCurrentDir; //das aktive Verzeichnis

Das Windows-Verzeichnis kann so ermittelt werden (aus der Delphi-Hilfe)

In diesem Beispiel befinden sich ein Eingabefeld und eine Schaltfläche in einem Formular. Beim Klicken auf die Schaltfläche werden das aktuelle und das Windows-Verzeichnis nach dem im Eingabefeld angegebenen Dateinamen durchsucht. Das Ergebnis der Suche wird anschließend in einem Meldungsfenster angezeigt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  buffer: array [0..255] of char;
  FileToFind: string;
begin
  GetWindowsDirectory(buffer, SizeOf(buffer));
  FileToFind := FileSearch(Edit1.Text, GetCurrentDir + ';' + buffer);
  if FileToFind = '' then
    ShowMessage('Datei ' + Edit1.Text + ' nicht gefunden.')
  else
    ShowMessage('Datei ' + FileToFind + ' gefunden.');

end;

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[Tom]

Zwischenfrage: Was wird gesucht?

1) Der Pfad, in den Dein Programm installiert ist?
2) Der Vorgabepfad, wo normalerweise alle Programme installiert werden (aber nicht müssen!)?

[Tom]

Zitat:

Zitat von Frank Reiser

Verzeichnis:=GetCurrentDir; //das aktive Verzeichnis

Die Benutzung dieser Funktion sollte IMHO mit Enterbung bestraft werden.

[Wormid]

Zitat:

Zitat von silent

hallo, nein, so ein langer code kann nicht nur dazu da sein die default ordner zu finden. (aber danke ;))

Hast Du Dir den Source da mal ernsthaft angesehen? IMHO sind da mehere verschiedene Methoden aufgezeigt, wie man an die verschiedensten Ordner rankommt!

Gruß

Wormid

[Pseudemys Nelsoni]

hallo christian, guvck ich mir gleich mal an :)

an die anderen: ich suche kein file in einem win/programm ordner, sondern ich suche ledeglich die namen des WindowsProgramm Ordners... bei der deutschen windows version heisst der "Programme", bei der englischen z.b "program files"

[nTE]

Also bei mir unter Windows 2000 steht dieser Pfad in der Registry unter:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion
Schlüssel: ProgramFilesDir

Für Windows 98 habe ich das mal eben überprüft und da ist es genauso.

[Pseudemys Nelsoni]

danke nTE mal reinschauen :), wenn es so ist dann ist es einfach =)

[Christian Seehase]

Moin nTE,

da es aber dokumentierte Wege gibt, an diesen Wert zu gelangen, ist es gefährlich, dies direkt auszulesen.
In einer weiteren Version, oder auch nach einem Service Pack könnte das theoretisch nicht mehr an dieser Stelle liegen.

[nTE]

Hi Christian.

Natürlich hast du Recht. =)
Die SHGetSpecialFolderLocation Funktion sieht wirklich besser aus. :)

Ich muss eingestehen, dass ich den Code den the_master verlinkt hat, nur kurz überflogen haben mit der selben Erkenntnis wie silent "hmm.. ganz schön lang :P". *g*

[Pseudemys Nelsoni]

jo den programmpath find ich da, das ist schonmal gut :)...wie krieg ich den WIndows ordner namen noch raus, steht der da auch irgendwo?

[Pseudemys Nelsoni]

oh, hab jetzt erst christians post gesehen...ich finde bei deinem link nur 3 ergebnisse christian und irgendwie krieg ichs da nicht raus wie der windows bzw windowsprogrammordner heisst :(

[Pseudemys Nelsoni]

hatte es mal so versucht jetzt:

Delphi-Quellcode:

ShellExecute(Handle, 'open', 'C:\%ProgramFiles%\Internet Explorer\IExplore.exe','www.delphipraxis.net',nil,SW_SHOW);

aber %ProgramFiles% wird wohl als normaler ordner benutzt, und da es keinen ordner gibt der "%ProgramFiles%" heisst geht es auch nicht..., ist das ein scheiss :(....sollte %ProgramFiles% nicht den programmpfad repräsentieren?

[Tom]

Was Du da versuchst ist völliger Unfug! Begründung:

1) ProgramFiles enthält das Laufwerk.
2) Nicht alle Windowsinstallationen befinden sich auf C: (meine nicht)
3) Der IE befindet sich auch nicht zwangsweise im Pfad %ProgramFiles%\Internet Explorer (meiner leider nicht, auch nicht wenn das Laufwerk korrekt wäre).
4) Den IE startet man einfach so

Delphi-Quellcode:

ShellExecute(Handle, 'open', 'IExplore','www.delphipraxis.net',nil,SW_SHOW);

5) Als Opera-User versicher ich Dir: Dein Programm auf mein Rechner: Nein danke.
6) Der aktuell genutzte Browser kann über die Reg ausgelesen werden. Verknüpfung mit http, html ...
7) Eigentlich reicht auch

Delphi-Quellcode:

ShellExecute(Handle, 'open', 'www.delphipraxis.net',nil,nil,SW_SHOW);

[Pseudemys Nelsoni]

hi, ich möchte aber das ein neues IE fenster geöffnet wird.
BEi deinem code wird eine alte seite durch die neue ersetzt (mit opennew ging es nicht)

[Tom]

Dann nimm die Lösung von Punkt vier und hefte für Opera-User (etc.) ein Warnhinweis auf die Verpackung.

[Pseudemys Nelsoni]

danke, das ging 8)

[synex]

Nur der Komplettheit halber:
Den Programm Files Ordner bekommt man durch

Code:

%ProgramFiles%

[Pseudemys Nelsoni]

jo, den wollte ich auch, aber wenn ich den in einen path anfügr funktioniert es nicht

[Tom]

Zitat:

Zitat von silent

danke

Bitte.

Zitat:

das ging 8)

Lieber nicht. Nimm besser Punkt 6 und Du machst alle glücklich. Die Ermittlung der Verknüpfung in der Reg steht in jeder besseren FAQ.

[Pseudemys Nelsoni]

hoi, jo das hätt ich auch verwendet, nur das sich da immer ne alte seite aktualisiert hat statt das eine neue kam

[Tom]

Du sollst den aktuell installierten Browser in der Reg ermitteln. Im Ergebnis hättest Du dann den passenden Aufruf.

[Pseudemys Nelsoni]

hm, wo steht der da?

[Christian Seehase]

Moin Silent,

guckts Du hier:

Standardbrowser öffnen