Определение пути, где находится программа

Written on 01 Февраля 2007. Posted in [Delphi] Приложение

function GetExePath:string;
begin
 Result:=ExtractFilePath(paramstr(0));
end;