Problem mit GetModuleName

[Schlingel]

Hallo

Ich habe ein Problem mit dem Auslesen des eigenen Applications - Name bzw. Pfad.


Ich nutze den Aufruf GetModuleName(HInstance)

bei einer .Exe bekomme ich: 'C:\Users\xxxxx\Desktop\STACKS_ MYSQL_ EMBEDDED\V1\Test_Application.exe'

bei einer .ocx (ActiveX): 'C:\Users\xxxxx\Desktop\STACKS~4\V1\AX_ZH_~1.OCX'


beide Files befinden sich im gleichen Ordner .... und ich denke es war auch bei der .ocx wie bei der .exe ???

wie kann ich es für beide gleichziehen? (ohne Tilde)


Danke für Tipps im Voraus

[Der schöne Günther]

http://stackoverflow.com/q/32005821

[himitsu]

ExpandFileName

[Schlingel]

@ Der schöne Günther .... ein wenig abgewandelt, damits für mich passt... funzt
@ himitsu .... hab's kurz probiert... leider konnte ich die Tilde nicht wegbringen...


Danke

[himitsu]

Mist, verwechselt. Das war um Relative Pfade (auf schlechte Weise) in absolute Pfade umzuwandeln.

GetLongPathName ist aber das Richtige.
In Delphi selber war man echt so blöd und hat es in Jahrzehnten nicht geschafft diese Funktion endlich mal richtig zu kapseln, nichtmal in den neueren IOUtils.
Bzw. ständig kapseln viele Abteilungen das nur für sich selber und geben das Ergebnis nicht zur Benutzung frei.
System.pas ToLongPath
System.Win.ComServ.pas ShortToLongFileName
...