paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 18:40:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Less hints.

Browse Source 
git-svn-id: trunk@50497 -
This commit is contained in:
bart 2015-11-24 14:24:12 +00:00
parent 094b14ce22
commit 0493a91c19
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/winlazfileutils.inc
View File

@ -362,9 +362,11 @@ begin
end; end;
function GetCurrentDirWide: String; function GetCurrentDirWide: String;
{$ifndef WinCE}
var var
w : WideString; w : WideString;
res : Integer; res : Integer;
{$endif}
begin begin
{$ifdef WinCE} {$ifdef WinCE}
Result := '\'; Result := '\';
@ -382,10 +384,12 @@ end;
procedure GetDirWide(DriveNr: Byte; var Dir: String); procedure GetDirWide(DriveNr: Byte; var Dir: String);
{This procedure may not be threadsafe, because SetCurrentDirectory isn't} {This procedure may not be threadsafe, because SetCurrentDirectory isn't}
{$ifndef WinCE}
var var
w, D: WideString; w, D: WideString;
SavedDir: WideString; SavedDir: WideString;
res : Integer; res : Integer;
{$endif}
begin begin
{$ifdef WinCE} {$ifdef WinCE}
Dir := '\'; Dir := '\';
@ -1021,9 +1025,11 @@ end;
function FileIsHardLink(const AFilename: string): boolean; function FileIsHardLink(const AFilename: string): boolean;
{$ifndef wince}
var var
H: THandle; H: THandle;
FileInfo: BY_HANDLE_FILE_INFORMATION; FileInfo: BY_HANDLE_FILE_INFORMATION;
{$endif}
begin begin
Result := false; Result := false;
{$ifndef wince} {$ifndef wince}