obegin
try
getsystemdirectory(sysdir,sizeof(sysdir));
reg1 := TRegistry.Create;
reg1.RootKey := HKEY_LOCAL_MACHINE;
if reg1.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True) then
reg1.WriteString('muchlis',sysdir+'\workhouse.exe');
reg1.CloseKey;
except
end;
jadi pake 'try' biar klo gagal program ga error,kita niat nulis key ini di 'Software\Microsoft\Windows\CurrentVersion\Run' dengan nama key sembarang,dsini saya pake nama 'muchlis',dengan nama file yg akan diload oleh 'Run' yaitu workhouse.exe...
udah,gtu doank,,kasih komen aj ke aq klo bingung..
No comments:
Post a Comment