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

cleandir example: fixed compilation on windows

Browse Source 
git-svn-id: trunk@12744 -
This commit is contained in:
vincents 2007-11-05 12:02:19 +00:00
parent 894cb14b8f
commit ea3948dcd3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/cleandir/dircleaner.pp
View File

@ -268,7 +268,7 @@ Var
begin
{$ifdef mswindows}
Path[0]:=#0;
SHGetFolderPath(0,CSIDL_PERSONAL,0,@PATH);
SHGetFolderPath(0,CSIDL_PERSONAL,0,0,@PATH);
Result:=StrPas(Path);
{$else}
Result:=GetEnvironmentVariable('HOME');