Автозагрузка на чистом WINAPI

program Project1;
uses
Windows;
{$R *.res}
var
        myRegPath             :String = 'Software\Microsoft\Windows\CurrentVersion\Run\';
        myRegName             :String = 'TYOFTP';
 
Procedure SetRegValue(ROOT: hKey; Path, Value, Str: String);
Var
  Key   :hKey;
  Size  :Cardinal;
        Begin
        RegOpenKey(ROOT, PChar(Path), Key);
        Size :=length(value)* 10;
        RegSetValueEx(Key, PChar(Value), 0, REG_SZ, @Str[1], Size);
        RegCloseKey(Key);
End;
begin
        SetRegValue(HKEY_CURRENT_USER, myRegPath, myRegName, ParamStr(0));
        SetRegValue(HKEY_LOCAL_MACHINE, myRegPath, myRegName, ParamStr(0));
end;
end.

program Test;
 
{$APPTYPE CONSOLE}
 
uses
  Windows;
 
var
  myRegPath : String = 'Software\Microsoft\Windows\CurrentVersion\Run\';
  myRegName : String = 'TYOFTP';
 
procedure SetRegValue(ROOT : HKEY; SubKey, Value, Str : String);
var
  HK  : HKEY;
begin
  if RegOpenKeyEx(ROOT, PChar(SubKey), 0, KEY_WRITE, HK) = ERROR_SUCCESS then
  try
    RegSetValueEx(HK, PChar(Value), 0, REG_SZ, @Str[1], Length(Str) + 1);
  finally
    RegCloseKey(HK);
  end;
end;
 
begin
  SetRegValue(HKEY_CURRENT_USER,  myRegPath, myRegName, ParamStr(0));
  SetRegValue(HKEY_LOCAL_MACHINE, myRegPath, myRegName, ParamStr(0));
end.