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

Fix for bug #20804

Browse Source 
git-svn-id: trunk@34321 -
This commit is contained in:
sekelsenmat 2011-12-20 10:49:05 +00:00
parent 1f545e968d
commit bf64f7b1f8
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazutils/winfileutil.inc
View File

@ -432,7 +432,10 @@ var
res : Integer;
begin
{$ifdef WinCE}
raise Exception.Create('[GetCurrentDirWide] The concept of the current directory doesn''t exist in Windows CE');
Result := '\';
// Previously we sent an exception here, which is correct, but this causes
// trouble with code which isnt tested for WinCE, so lets just send a dummy result instead
// Exception.Create('[GetCurrentDirWide] The concept of the current directory doesn''t exist in Windows CE');
{$else}
res:=GetCurrentDirectoryW(0, nil);
SetLength(w, res);