-----Messaggio Originale-----
Da: "Przemyslaw Czerpak" <dru...@acn.waw.pl>
A: "Harbour Project Main Developer List." <harbour@harbour-project.org>
Data invio: venerdì 6 febbraio 2009 16.59
Oggetto: Re: [Harbour] curdir() and cross platform compatibility
Sorry but I have to miss sth.
Do you want to say that in this code:
FUNCTION MAIN()
LOCAL cCurDir := GETCURRENTDIRECTORY()
? cCurDir
? SETCURRENTDIRECTORY( "C:\WINDOWS" )
? SETCURRENTDIRECTORY( cCurDir )
? SETCURRENTDIRECTORY( "C:" )
? GETCURRENTDIRECTORY()
INKEY( 0 )
RETURN NIL
#pragma BEGINDUMP
#include "windows.h"
#include "hbapi.h"
HB_FUNC( SETCURRENTDIRECTORY )
{
hb_retl( SetCurrentDirectory( hb_parc( 1 ) ) );
}
HB_FUNC( GETCURRENTDIRECTORY )
{
char szPath[ MAX_PATH ];
if( GetCurrentDirectory( MAX_PATH, szPath ) )
hb_retc( szPath );
}
#pragma ENDDUMP
it does not work for you but works in the Mindaugas code?
Yes, exactly.
EMG
--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
