有:
var
s:string;
begin
s:= application.ExeName;
s:= ExtractFileDir(s);
// s := ExtractFilePath(s);
// s:= ExtractFileExt(s);
// s:= ExtractFileName(s);
showmessage(s);
var
s:string;
begin
s:= application.ExeName;
s:= ExtractFileDir(s);
// s := ExtractFilePath(s);
// s:= ExtractFileExt(s);
// s:= ExtractFileName(s);
showmessage(s);
ExtractFilePath(Application.ExeName);
s:string;
begin
GetDir(0, s);
showmensage(s);
end;