[SBalykov]

Gnom_aka_Lexander
Вы меня не совсем поняли.

Код:

#define Dir "{code:GetInstallDir|{pf32}\My Prog}"

function GetInstallDir(Dir:string):string;
begin
	RegQueryStringValue(HKLM,'SOFTWARE\Maxis\Programs','Install Dir',Dir); 
  Result:=Dir;  // Директория может быть любой, но необходимо убрать последнюю папку этой директории.
end;                // н.п. x:\xxx\Programs