Как узнать полный путь к *.ехе файлу

[SeЯgey]

мне необходимо при запуске программы знать путь к её *.ехе файлу,
чтобы создать там папки и файлы
Если кто знает подскажите как узнать?
пример:
C:\Program Files\Borland\Delphi7\Projects\proj ect.exe - файл
полный путь - C:\Program Files\Borland\Delphi7\Projects\
это нужно, чтобы если кто скопировал *.ехе файл на другой диск он создал там же свои папки.

[RIO]

var
     S: string;
begin
     S := GetCurrentDir;
end;

[Showy]

...
var
  path: string;
begin
  path := ExtractFileDir(Application.ExeName);
end;

[SeЯgey]

Спасибо огромное!!!