RegOpenKeyEx

[goluzov]

var
  TempKey: HKey;

RegOpenKeyEx( HKEY_LOCAL_MACHINE, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion', 0, KEY_READ, TempKey )

как теперь поолучить данные из параметра ProgramFilesDir

и вывести их в showmessage

[Leo08]

А почему бы здесь не воспользоваться модулем Registry?
К списку модулей добавьте uses Registry;

function get:string;
var
a:TRegistry;
s:string;
begin
a:=TRegistry.Create;
a.RootKey:=HKEY_LOCAL_MACHINE;
a.OpenKey('SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion',true);
s:=a.ReadString('ProgramFilesDir');
a.CloseKey;
Result:=s;
end;

Пример использования:
ShowMessage(get);

[Пепел Феникса]

ну а если надо уж на апи, то http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx

[goluzov]

нет такой функции RegGetValue
[Error] Unit1.pas(29): Undeclared identifier: 'RegGetValue'

[goluzov]

[Error] Unit1.pas(29): Undeclared identifier: 'RegGetValue'

[FaTaL]

Сообщение от goluzov

[Error] Unit1.pas(29): Undeclared identifier: 'RegGetValue'

А где Вы её вообще тут увидели?

[Пепел Феникса]

извиняюсь, не обратил внимания что, та функция лишь в висте и XP64(ну и поидее в смемерке)
http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx

[GunSmoker]

Для начала стоит вдумчиво почитать:
http://www.transl-gunsmoker.ru/2008/...l-folders.html

а потом решить, точно ли вам нужно это делать.

Ещё очень сомнительно выглядит попытка доступа к папке для X64 из 32-х разрядного приложения.