ParamStr(1) unter Win7 falscher Pfad

[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.

[e-gon]

@Bbommel: Dein Mini-Programm scheint bei mir auch zu funktionieren - wenn Du statt der 3. die 2. Zeile meinst. Es steht jedenfalls zweimal C:\Users\... da.

Jetzt verstehe ich aber gar nichts mehr! Ich nutze ebenfalls Delphi 2009 auf Win7 (64 Bit)...


@Sherlock: ParamStr(0) gibt den vollständigen Programmname zurück und ab (1) bis (x) werden Parameter, die mit dem Programm aufgerufen werden, übergeben.
Bei mir steht in ParamStr(1) der vollständige Name der Datei, die doppelt angeklickt wurde.

[e-gon]

Ok, dank Eurer Hilfe konnte ich das Problem nun ausfindig machen. Es ist NICHT ParamStr(1) sondern eine Funktion namens ExtractLongFileName, die ich benutze um evtl. übergebene kurze Pfadnamen in lange umzuwandeln. Irgendwie scheint mein Code den Pfad von User auf Benutzer zu ändern...

Delphi-Quellcode:

    function ExtractLongFileName(const FileName: string): string;
    var  FileInfo: TSHFileInfo;
    begin
      FillChar(FileInfo,SizeOf(FileInfo),#0);
      if SHGetFileInfo(PChar(FileName),0,FileInfo,Sizeof(FileInfo),SHGFI_DISPLAYNAME)<>0 then
        Result:= string(FileInfo.szDisplayName)
      else  Result:= FileName;
    end;

Aber vielen Dank für Eure Hilfe!!!

[e-gon]

Musste Frage-Markierung noch entfernen...

[jaenicke]

Das ist korrekt. Der Parameter SHGFI_DISPLAYNAME, den du dort benutzt, holt explizit den dem Benutzer angezeigten Pfad statt dem realen Pfad.

// EDIT:
Was du wohl meintest ist die Funktion GetLongPathName:
http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx

[DeddyH]

Führt GetLongPathName nicht auch zum gewünschten Ziel?

[Stevie]

Zitat von Sherlock:

Ah! OK, dann kann auch ich das geschilderte Verhalten nicht bestätigen. Denn bei mir(*) heisst auch alles korrekt "C:\users\..."

Sherlock


(*) mir= Win7 Prof 64bit SP1

Die Unterschiede bei euch kommen übrigens von der Sprache, in der Windows installiert ist.