Как узнать деректорию откуда запущена программа?

[dolphin705]

Здраствуйте, передо мной возник камень приткновения:
Написал программу, и она должна если лежит в каталоге С:\Program files выполныть одну процедуру(Собственно програмную), а если где нибудь в другом месте другую(инсталяцию).Подскажите как реализовать

Код примерно такой

Procedure programm;
begin
////
end;

Procedure instal;
begin
////
end;

begin
if dir = C:\Prgr.files
then
begin
programm....
else
instal

[Terran]

Procedure TForm1.FormCreate(Sender: TObject);
Begin
If ExtractFilePath(Application.ExeName)='C:\Program Files\' Then
Begin
Programm;
End
Else
Begin
Instal;
End;
End;

http://programmersforum.ru/showthread.php?t=42684

[dolphin705]

Благодарю за помощь

[Somebody]

Только не факт, что Program Files будет у пользователя на диске C и что она вообще так называется

[mihali4]

Сто раз этот примитивный вопрос рассматривался!
Закрыто.