Hi Viktor,

There is GPF when trying it without length.
(replace hb_parclen() with -1 in hb_u32ret() calls)

Any idea why?

Sorry, I don't have GPG with 13873 in ANSI/UNICODE with -1 .-

#define CSIDL_ADMINTOOLS            0x0030 /* <username>\Start 
Menu\Programs\Administrative Tools */
#define MAX_PATH 260

PROCEDURE Main()
   LOCAL cData

   cData := Space( MAX_PATH )
   DllCall( "shell32.dll", NIL, "SHGetFolderPath", 0, CSIDL_ADMINTOOLS, 0, 0, 
@cData )
   ? "[" + cData + "]"
   cData += '\'
   ? "[" + cData + "]"

   WAIT
   RETURN

The result is Ok .-

[C:\Documents and Settings\Xavi\Menú Inicio\Programas\Herramientas 
administrativas]
[C:\Documents and Settings\Xavi\Menú Inicio\Programas\Herramientas 
administrativas\]

In Spanish this requires UNICODE due to accent in word "Menú". :)

Best regards,
Xavi
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to