THX, war mal wieder einafcher als ich dachte!
Fals es noch wer braucht, so einfach geht's:
Code:
function GetFileName: string;
Const
BufferSize = 255;
var
Buffer : array[0..BufferSize-1] of Char;
begin
GetModuleFilename(hinstance, @Buffer[0], BufferSize);
Result := String(Buffer);
end;