From 0493a91c19596b8b5bf88f99741f18588bf97afb Mon Sep 17 00:00:00 2001 From: bart <9132501-flyingsheep@users.noreply.gitlab.com> Date: Tue, 24 Nov 2015 14:24:12 +0000 Subject: [PATCH] LazUtils: Less hints. git-svn-id: trunk@50497 - --- components/lazutils/winlazfileutils.inc | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/components/lazutils/winlazfileutils.inc b/components/lazutils/winlazfileutils.inc index d966dc1207..feb8324517 100644 --- a/components/lazutils/winlazfileutils.inc +++ b/components/lazutils/winlazfileutils.inc @@ -362,9 +362,11 @@ begin end; function GetCurrentDirWide: String; +{$ifndef WinCE} var w : WideString; res : Integer; + {$endif} begin {$ifdef WinCE} Result := '\'; @@ -382,10 +384,12 @@ end; procedure GetDirWide(DriveNr: Byte; var Dir: String); {This procedure may not be threadsafe, because SetCurrentDirectory isn't} +{$ifndef WinCE} var w, D: WideString; SavedDir: WideString; res : Integer; +{$endif} begin {$ifdef WinCE} Dir := '\'; @@ -1021,9 +1025,11 @@ end; function FileIsHardLink(const AFilename: string): boolean; +{$ifndef wince} var H: THandle; FileInfo: BY_HANDLE_FILE_INFORMATION; + {$endif} begin Result := false; {$ifndef wince}