Копирование файла Опции

[Darkwolf]

Кто ни будь знает как сделать так чтобы призапуске програмы она копировала
фаил в в у казаную втексте проги папку и прописавала бы в реестре запуск этого файла при загрузки компа.

[BlackShadow]

Uses WinProcs,Strings,ShellAPI;

Const
  DestinationPoint:PChar='C:\MyProg.Exe';

Var
  r:LongInt;
  e:Integer;

Begin
  If RegCreateKey($80000002,'SoftWare\MicroSoft\Windows\CurrentVersion\Run',r) = ERROR_SUCCESS Then
    If RegSetValue(r,'MyProg',REG_SZ,DestinationPoint,StrLen(DestinationPoint))= ERROR_SUCCESS Then
      e:=0
    Else
      e:=2
  Else
    e:=1;
  Case e Of
    0:MessageBox(0,'NoError','NoError',0);
    1:MessageBox(0,'Unable to create subkey','Unable to create subkey',0)
    Else MessageBox(0,'Failed to save','Failed to save',0)
  End;
  RegCloseKey®
End.

Если это поможет...