Application.ExeName
bzw.,
ParamStr(0)
geben Dir den Pfad und Dateinamen Deiner Anwendung zurück.
Mit
ExtractFilePath(...) erhälst Du dann den Pfad ohne Dateinamen.
In der Registry steht dass i.A. nicht
, wenn der Anwender das Programm von Hand kopiert hat.