From 203059b3dfcbfe2a530d16749ed64d8ed7d6c007 Mon Sep 17 00:00:00 2001 From: lazarus-bart Date: Sat, 10 May 2014 16:23:34 +0000 Subject: [PATCH] LazEdit: when calling FileGetAttrUTF8 check for feInvalidHandle. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3036 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- applications/lazedit/editorpagecontrol.pp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/applications/lazedit/editorpagecontrol.pp b/applications/lazedit/editorpagecontrol.pp index 26393a732..153000ab7 100644 --- a/applications/lazedit/editorpagecontrol.pp +++ b/applications/lazedit/editorpagecontrol.pp @@ -683,11 +683,12 @@ var Attr: LongInt; begin try - Attr := FileGetAttrUTF8(Utf8Fn); + {$ifdef windows} //TFileStreamUtf8.Create fails on hidden files on Windows, //because it uses FILE_ATTRIBUTE_NORMAL //see http://msdn.microsoft.com/en-us/library/windows/desktop/aa363858%28v=vs.85%29.aspx - {$ifdef windows} + Attr := FileGetAttrUTF8(Utf8Fn); + if (Attr = feInvalidHandle) then Attr := 0; if ((Attr and faHidden) = faHidden) then FileSetAttrUtf8(Utf8Fn, Attr and (not faHidden)); {$endif} Lines.SaveToFile(Utf8Fn);