Dimedrol1536
06.07.2012, 15:05
Нужна помощь.
Var
Reg:Tregistry;
begin
Reg:=TRegistry.create;
REG.RootKey:=HKEY_CURRENT_USER;
REG.OpenKey('Software\4Game\4GameManager\Games\Poi ntBlank',true);
REG.ReadString('patch');
Reg.Destroy;
end;
В параметре 'patch' лежит значение пути установки программы.
Как записать этот путь?
RenameFile('путь\1.txt','путь\Rename.txt');
Var
Reg:Tregistry;
begin
Reg:=TRegistry.create;
REG.RootKey:=HKEY_CURRENT_USER;
REG.OpenKey('Software\4Game\4GameManager\Games\Poi ntBlank',true);
REG.ReadString('patch');
Reg.Destroy;
end;
В параметре 'patch' лежит значение пути установки программы.
Как записать этот путь?
RenameFile('путь\1.txt','путь\Rename.txt');