确实没用：
function IsFileInUse(AName: string): boolean;
var
hFileRes: HFILE;
begin
Result := False;
if not FileExists(AName) then exit;
hFileRes := CreateFile(PChar(AName), GENERIC_READ or GENERIC_WRITE, 0,
nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
Result := hFileRes = INVALID_HANDLE_VALUE;
i
跑不通！这个得改下
确实没用： function IsFileInUse(AName: string): boolean; var hFileRes: HFILE; begin Result := False; if not FileExists(AName) then exit; hFileRes := CreateFile(PChar(AName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := hFileRes = INVALID_HANDLE_VALUE; i
啊 啊 没用 啊