problemer med sti

jeg har en backup function

var
FOS :TSHFileOpStruct;
begin
with FOS do               
begin
Wnd  := 0;
wFunc := FO_COPY;
pFrom := 'c:\programmer\regosit\rego*'#0;
pTo  := 'c:\programmer\regosit\backup'#0;
fFlags:= FOF_NOCONFIRMATION;
end;
SHFileOperation(FOS);
begin
with FOS do
begin
Wnd  := 0;
wFunc := FO_COPY;
pFrom := 'c:\programmer\regosit\history*'#0;
pTo  := 'c:\programmer\regosit\backup'#0;
fFlags:= FOF_NOCONFIRMATION;
end;
SHFileOperation(FOS);
showmessagepos('dataerne er kopieret til backup',400,400);
Backup.Close;
end;
end;

Denne funktion er betinget af at programmet placeres i c:\programmer\regosit

hvis programmet ikke placeres der - bliver der ikke lavet en backup

hvordan kan man lave den så den kun kigger i det bibliotek som exe filen er placeret?