mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Error in mbFileAccess under Windows

Browse source
This commit is contained in:
Alexander Koblov 2008-10-25 07:18:28 +00:00
commit e7ff98a585
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
uOSUtils.pas
View file

@ -918,11 +918,18 @@ const
GENERIC_WRITE,
GENERIC_READ or GENERIC_WRITE);
var
hFile: THandle;
wFileName: WideString;
begin
Result:= False;
wFileName:= UTF8Decode(FileName);
Result:= CreateFileW(PWChar(wFileName), AccessMode[Mode and 3],
0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0) <> 0;
hFile:= CreateFileW(PWChar(wFileName), AccessMode[Mode and 3],
0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if hFile <> 0 then
begin
Result:= True;
FileClose(hFile);
end;
end;
{$ELSE}
const