[helper999999]

пишу следующее:

Код:

procedure CreateKeyRun;
var
Key:HKEY;
Value: String;
begin
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;

нузно значение 1 а он постоянно пишет 0