网语飘飘.Net/Delphi攻坚战

  博客园 :: 首页 :: 新随笔 :: 联系 :: 订阅 :: 管理 ::
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可以起到删除和更名文件的作用

posted on 2006-05-30 17:00  网语飘飘  阅读(190)  评论(0)    收藏  举报