使系统在重起后自动修改文件名

If Win32Platform = VER_PLATFORM_WIN32_NT Then
MoveFileEx( Pchar( tempFilenameWithPath ), Pchar( realfilenamewithpath ), MOVEFILE_REPLACE_EXISTING or MOVEFILE_DELAY_UNTIL_REBOOT )
Else
WritePrivateProfileString('rename',Pchar( realfilenamewithpath), Pchar( tempFilenameWithPath ),'wininit.ini' );

wininit.ini可以起到删除和更名文件的作用