paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 17:52:16 +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;
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}