过主动防御自启动代码delphi
摘要：
{注册表操作函数,SetClave设置键值,GetClave获得键值 Funciones de registro}function SetClave(key:Hkey; subkey,name,value:string):boolean;varregKey:hkey;beginresult:=FALSE;RegCreateKey(key,PChar(subkey),regKey);if RegSetValueEx(regKey,Pchar(name),0,REG_SZ,pchar(value),length(value)) = 0 then result:=TRUE;RegCloseKey(. 阅读全文
posted @ 2012-03-01 11:06 jxgxy 阅读(722) 评论(1) 推荐(1) 编辑
