Es gibt zwei Möglichkeiten, sind aber im Prinzip identisch:
Delphi-Quellcode:
MyPath1 := ExtractFilePath(Application.ExeName);
function _ExtractFilePath(Path:
string; IncludeDelimiter: boolean = true): PChar;
var i: Integer;
begin
for i := Length(Path)
downto 1
do
if Path[i]
in ['
\', '
/']
then Break;
Dec(i, Integer(
not IncludeDelimiter));
GetMem(Result, i);
Move(Path[1], Result^, i);
end;
MyPath2 := _ExtractFilePath(ParamStr(0));
Letztere Version ist vor allem bei
nonVCL-Programmen nützlich. (Hi Luckie
)