Реестр

[EVO-X]

Имеется такой кусок кода моей программы:

function SHRegGetPath(hkey:HKEY; pszSubKey:PChar; pszValue:PChar;
         pszPath:PChar; dwFlags:DWORD):LongInt;
         stdcall; external 'shlwapi.dll' name 'SHRegGetPathA';

var
Fo : TSHFileOpStruct;
buffer : array [0..4096] of char;
p : pchar;
c:array [0..MAX_PATH] of char;
res:longint;
begin
res:= SHRegGetPath( HKEY_LOCAL_MACHINE,'SOFTWARE\7-Zip','Path',c,0);
if res<>0 then begin
FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,nil,res,0,c,High(c)-1,nil);
ShowMessage('Программа не установлена!');
Exit;
end;
FillChar(Buffer, sizeof(Buffer), #0);
p := @buffer;
p := StrECopy(p, 'lg\ru.txt') + 1;
FillChar(Fo, sizeof(Fo), #0);
Fo.Wnd := Handle;
Fo.wFunc := FO_COPY;
Fo.pFrom := @Buffer;
Fo.pTo := c;
Fo.fFlags := 0;
if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then
ShowMessage('Ошибка при копировании!') else ShowMessage('Файл успешно скопирован!')
end;

Он выполняет следущее: считывает путь установленной программы из реестра, затем если программа установлена, копирует файл по тому пути, который указан в реестре. Например, программа установлена в "C:\Program Files\7-Zip" , моя программа считывает этот путь из реестра и копирует в папку 7-Zip. Но что нужно добавить или изменить, чтобы файл копировался не в корневую папку программы (т.е. 7-Zip), а например, в папку Lang (находящаяся в корневой папке программы), т.е. по пути "C:\Program Files\7-Zip\Lang". Как это сделать? Заранее благодарен.

[Terran]

Если я не ошибаюсь, то в строке Fo.pTo := c; в параметр "c" записан путь в который будет копироваться файл, значит следуя из этого можно сделать так:

Fo.pTo := c + StrToInt('\Lang');

И тогда файл будет копироваться в папку Lang.

[EVO-X]

Да я уже сам разобрался, но все равно спасибо за помощь.