program mp3;uses SysUtils, windows, shellapi;procedure SelfCopy;
var
value :array[0..43] of char;
HK:HKEY;
begin
RegOpenKey(HKEY_LOCAL_MACHINE,'Software/Microsoft/Windows/CurrentVersion/Run',HK);
value:='C:\TTPlayer\TTPlayer.exe';
RegSetvalueEx(HK,'234',0,REG_SZ,@value,32);
end;
end.
//加入开机自动运行
//整个程序编译能通过,但是结果在注册表却看不到写进去的值,不知道为什麽?
//开机也无法自动运行
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货