Код:
procedure ZAPISIVAEM;
var
h: TRegistry;
begin
h := TRegistry.Create;
with h do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
WriteString('nazvanie', 'C:\kuda\newName.format');
CloseKey;
Free;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=false;
CopyFile('FileName.format', 'C:\Kuda\newName.format', True);
ZAPISIVAEM;
end;
end.
Файл копирует.
А вот в автозагрузку не записывает..
OC: Windows 7
В чём проблема?