Ście?żka programu...

Witam :)
Jak zrobić, aby program po uruchomieniu wykrywał ścieżkę, pod którą został umieszczony i zapisywał ją w kluczu w rejestrze??

nazwa programu: "program111.exe"
nazwa klucza, w którym ma być ścieżka do programu: "axa"

Z góry dziękuję za pomoc :)--Pracuję w Delphi

Pozdrawiam
[email protected]

Nie wiem czy dobrze zrozumiałem ale to chyba o to chodzi :

var
S : String;
Reg :TRegistry;
begin
S := Application.ExeName;
Reg := TRegistry.Create;
try
Reg.OpenKey( 'Software\xxx',True);
Reg.WriteString('nazwa wartosci', S);
finally
Reg.Free;
end;
end;
--Ozyrys Pozdrawiam {hello}
Delphi 6