如何從InnoSetup腳本中「觸摸」文件？

Question

如何從一個InnoSetup（Pascal）腳本中「接觸」一個文件，即將其最後修改時間更新爲當前時間？

Answer 1

下面是該TouchFile函數的代碼片段：

[Code] 
function CreateFile(
    lpFileName    : String; 
    dwDesiredAccess  : Cardinal; 
    dwShareMode   : Cardinal; 
    lpSecurityAttributes : Cardinal; 
    dwCreationDisposition : Cardinal; 
    dwFlagsAndAttributes : Cardinal; 
    hTemplateFile   : Integer 
): THandle; 
#ifdef UNICODE 
external 'CreateFileW@kernel32.dll stdcall'; 
#else 
external 'CreateFileA@kernel32.dll stdcall'; 
#endif 

procedure GetSystemTimeAsFileTime(var lpSystemTimeAsFileTime: TFileTime); 
external 'GetSystemTimeAsFileTime@kernel32.dll'; 

function SetFileModifyTime(hFile:THandle; CreationTimeNil:Cardinal; LastAccessTimeNil:Cardinal; LastWriteTime:TFileTime): BOOL; 
external 'SetFileTime@kernel32.dll'; 

function CloseHandle(hHandle: THandle): BOOL; 
external 'CloseHandle@kernel32.dll stdcall'; 

function TouchFile(FileName: String): Boolean; 
const 
    { Win32 constants } 
    GENERIC_WRITE  = $40000000; 
    OPEN_EXISTING  = 3; 
    INVALID_HANDLE_VALUE = -1; 
var 
    FileTime: TFileTime; 
    FileHandle: THandle; 
begin 
    Result := False; 
    FileHandle := CreateFile(FileName, GENERIC_WRITE, 0, 0, OPEN_EXISTING, $80, 0); 
    if FileHandle <> INVALID_HANDLE_VALUE then 
    try 
    GetSystemTimeAsFileTime(FileTime); 
    Result := SetFileModifyTime(FileHandle, 0, 0, FileTime); 
    finally 
    CloseHandle(FileHandle); 
    end;  
end;