Определить, находится ли файл в использовании

Советы » Файлы » Определить, находится ли файл в использовании

function

IsFileInUse(FileName: TFileName): Boolean; var

HFileRes: HFILE; begin

Result := False; if

not

FileExists(FileName) then

Exit; HFileRes := CreateFile(PChar(FileName), GENERIC_READ or

GENERIC_WRITE, 0, nil

, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := (HFileRes = INVALID_HANDLE_VALUE); if

not

Result then

CloseHandle(HFileRes); end

; procedure

TForm1.Button1Click(Sender: TObject); begin

if

IsFileInUse('c:Programsdelphi6indelphi32.exe') then

ShowMessage('File is in use.'); else

ShowMessage('File not in use.'); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com