ParamStr(1) unter Win7 falscher Pfad

[e-gon]

Hallo zusammen,

um Dateien per Doppelklick mit meinem eigenen Programm öffnen zu können benutze ich

Delphi-Quellcode:

ExtractFileDir(ParamStr(1))

Das hat bisher auch immer gut funktioniert. Nach meinem Umstieg auf Windows 7 habe ich allerdings ein Problem, wenn die zu öffnende Datei auf dem Desktop liegt.
ExtractFileDir(ParamStr(1)) liefert dann "C:\Benutzer\USERNAME\Desktop" zurück. Aber diesen Pfad gibt es laut Windows nicht und mein Programm stürzt ab. Windows-Explorer behauptet es müsste "C:\Users\USERNAME\Desktop" heißen. Wieso liefert ParamStr dann "Benutzer"?

Natürlich könnte ich nun "Benutzer" durch "Users" ersetzen. Aber das wäre eine unsaubere Lösung! Und wer weiß welche Pfade noch falsch von ParamStr zurückgegeben werden...

Kennt jemand eine Lösung für dieses Problem?

Gruß
e-gon

[s.h.a.r.k]

Diesen Pfad kann man "übersetzen" lassen. Nur weiß ich gerade leider nicht mehr, wo das zu finden ist... :oops:

[user0815]

Müsste CSIDL_FLAG_CREATE sein.
http://www.delphipraxis.net/1082613-post8.html

siehe dazu: http://www.delphipraxis.net/1041628-post5.html

[e-gon]

Danke für die schnellen Antworten!

Aber wie soll mir CSIDL_FLAG_CREATE dabei helfen? ParamStr(1) liefert "C:\Benutzer\USERNAME\Desktop". Woher soll ich dann wissen, dass ich CSIDL_FLAG_CREATE abfragen muss? Auf einem anderen PC ist z. B. der Username ein anderer oder das System liegt nicht auf C: sondern D: ...

[Bernhard Geyer]

Zitat:

Zitat von e-gon (Beitrag 1119211)

... oder das System liegt nicht auf C: sondern D: ...

Dann zeig mal das du ein Win7-System auf D:\ bekommst. AFAIK wird hier auf jedenfall die Laufwerke so sortiert das Win7 unter C:\ liegt.

[himitsu]

Hmmm, mir war so, als wenn mir der Explorer (Doppelklick im Explorer oder auf Desktop) den internen nicht-lokalisierten Pfad übergibt und nicht den Lokalisierten. :gruebel:

[e-gon]

Zitat:

Zitat von Bernhard Geyer (Beitrag 1119217)

Zitat:

Zitat von e-gon (Beitrag 1119211)

... oder das System liegt nicht auf C: sondern D: ...

Dann zeig mal das du ein Win7-System auf D:\ bekommst. AFAIK wird hier auf jedenfall die Laufwerke so sortiert das Win7 unter C:\ liegt.

Da magst Du recht haben (ich kenne Win7 noch nicht so gut).

Worum es mir aber eigentlich geht: Da ich nicht weiß welche Pfade alles von Win7 verbogen werden ist es mir nicht möglich sämtliche Verzeichnisse auf das richtige Verzeichnis abzubilden.

Gibt es vielleicht eine Funktion wie

Delphi-Quellcode:

PathNameToRealName(ExtractFileDir(ParamStr(1)));

?

[jaenicke]

Das könnte eine Erklärung für Probleme sein, die ich schon einmal mitbekommen habe.

Vielleicht geht es mit GetModuleFilename korrekt?

Delphi-Quellcode:

function GetModuleFileNameWrapper: string;
var
  lpFileName: array[0..MAX_PATH] of Char;
begin
  FillChar(lpFileName, SizeOf(lpFileName), #0);
  GetModuleFileName(HInstance, lpFileName, MAX_PATH);
  Result := lpFileName;
end;

[e-gon]

GetModuleFilename ist gut, wenn es um das ausführende Programm geht. Ich bräuchte das aber für die zu öffnende Datei.

Um es mal deutlich zu machen: Ich habe bestimmte Dateitypen mit meinem Programm verbunden. Klickt man nun doppelt auf eine Datei diesen Typs wird automatisch mein Programm gestartet und die zu öffnende Datei per ParamStr(1) übergeben.

Den Pfad meines Programms kann ich problemlos ermitteln. Das Problem liegt dann vor, wenn die "gedoppeltklickte" Datei auf dem Desktop oder in sonst einem Verzeichnis liegt, welches von Win7 umgebogen wird.

Aber es kann ja nicht sein, dass ich der Einzige mit einem solchen Problem bin. Wie macht Ihr das, die auch so ein Programm entwickeln, das über Dateien eines bestimmten Typs geöffnet wird?

[Bbommel]

Hm. Vielleicht bist du mit deinem Problem doch einsamer als du dachtest. Ich habe es gerade mal getestet und ein Demo-Projekt erstellt, das mir den Pfad der Exe-Datei anzeigt und den Pfad der übergebenen Datei (um mal beide hier diskutierten Fälle zu erschlagen, auch wenn du ja eigentlich nur auf letzteres hinauswillst). In allen Fällen kam bei mir im Programm "c:\users\...." an.

System: Win7 Professional 64-Bit.
Delphi 2009.

Ich hänge das Mini-Programm mal einfach an. In der dritten Zeile sollte nach dem Start der Pfad der übergebenen Datei stehen. Kannst ja mal berichten, ob da bei dir auch "Benutzer" anstatt "Users" ankommt.