[Rokuell]

Можно и так ещё извратиться

Код:

function GetPath:string;
var buff:array [0..255] of char;
begin
 GetModuleFileNameA(0,c,SizeOf(buff));
 Result := String( buff );
end;