[Alegun]

Код:

procedure CreateKeyRun;
var
Key:HKEY;
Value: Cardinal;
begin
Value:= 1;
RegCreateKeyEx(HKEY_CURRENT_USER,'Software\MyProgramINI',0,nil,REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,Nil,Key,nil);
RegSetValueEx(key,'FileCode',0,REG_DWORD,@Value,SizeOf(Cardinal));
RegCloseKey(Key);
end;