unsigned long k;

　　
　　k=REG_OPENED_EXISTING_KEY;

　　
　　RegCreateKeyEx(HKEY_LOCAL_MACHINE,

　　
　　"SOFTWARE\\MICROSOFT\\WINDOWS\\CURRENTVERSION\\RUN\\",

　　
　　0L,

　　
　　NULL,

　　
　　REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS|KEY_SET_VALUE,

　　
　　NULL,

　　
　　&hkey,&k);

　　
　　RegSetValueEx(hkey,

　　
　　"BackGroup",

　　
　　0,

　　
　　REG_SZ,

　　
　　NewProgramName.c_str(),

　　
　　NewProgramName.Length());

　　
　　RegCloseKey(hkey);

　　
　　if (int(ShellExecute(Handle,

　　
　　"open",

　　
　　NewProgramName.c_str(),

　　
　　NULL,

　　
　　NULL,

　　
　　SW_HIDE))>32)

　　
　　{

　　
　　WantClose=true;

　　
　　Close();

　　
　　}

　　
　　else

　　
　　{

　　
　　HKEY hkey;

　　
　　unsigned long k;

　　
　　k=REG_OPENED_EXISTING_KEY;

　　
　　long a=RegCreateKeyEx(HKEY_LOCAL_MACHINE,

　　
　　"SOFTWARE\\MICROSOFT\\WINDOWS\\CURRENTVERSION\\RUN",

　　
　　0,

　　
　　NULL,

　　
　　REG_OPTION_NON_VOLATILE,

　　
　　KEY_SET_VALUE,NULL,

　　
　　&hkey,&k);

　　
　　RegSetValueEx(hkey,

　　
　　"BackGroup",

　　
　　0,

　　
　　REG_SZ,

　　
　　ProgramName.c_str(),

　　
　　ProgramName.Length());

　　
　　int num=0;

　　
　　char str[20];

　　
　　DWORD lth=20;

　　
　　DWORD type;

　　
　　char strv[255];

　　
　　DWORD vl=254;

　　
　　DWORD Suc;

　　
　　do{

　　
　　Suc=RegEnumValue(HKEY_LOCAL_MACHINE,

　　
　　(DWORD)num,str,

　　
　　NULL,

　　
　　&type,

　　
　　strv,&vl);

　　
　　if (strcmp(str,"BGroup")==0)

　　
　　{

　　
　　 DeleteFile(AnsiString(strv));

　　
　　 RegDeleteValue(HKEY_LOCAL_MACHINE,"BGroup");

　　
　　 break;

　　
　　}

　　
　　}while(Suc== ERROR_SUCCESS);

　　
　　RegCloseKey(hkey);

　　
　　}

　　
　　自装载程序的卸载代码：

　　
　　int num;

　　
　　char str2[20];

　　
　　DWORD lth=20;

　　
　　DWORD type;

　　
　　char strv[255];
[未结束]