Pessoal, obrigado pela atenção. Vcs são excelentes.
Compilei a sugestão do leonardo e deu um monte de erro, mas eu não nego que estou bem próximo de zero, em termos de linguagens de programação, e, certamente, andei fazendo a coisa errada.
Eu coloquei o arquivo SHELLAPI.C q o Leonardo mandou dentro de meu funcoes.prg .
Copiei para a pasta aonde compilo os arquivos windows.h, shlobj.h, hbapi.h e hbapiitm.h , que estavam nas minhas pastas \XHARBOUR\INCLUE e \BORLAND\BCC55\INCLUDE.
Na compilação, deu os seguintes erros:
c:\harbour\bin\harbour.exe funwin.prg -ic:\harbour\include;c:\borland\bcc55\include -n -DWVW
xHarbour Compiler build 1.0.0 (SimpLex)
Copyright 1999-2007,
http://www.xharbour.org http://www.harbour-project.org/
Compiling 'funwin.prg'...
windows.h(22) Error E0025 Error in #if expression
100excpt.h(62) Error E0030 Syntax error: "syntax error at ','"
excpt.h(63) Error E0030 Syntax error: "syntax error at ','"
excpt.h(64) Error E0030 Syntax error: "syntax error at ','"
excpt.h(65) Error E0020 Incomplete statement or unbalanced delimiters
excpt.h(67) Error E0030 Syntax error: "syntax error at '}'"
excpt.h(97) Error E0030 Syntax error: "syntax error at 'STRUCT'"
excpt.h(99) Error E0030 Syntax error: "syntax error at '__C_SPECIFIC_HANDLER'"
100excpt.h(100) Error E0030 Syntax error: "syntax error at '_EXCEPTION_RECORD'"
excpt.h(101) Error E0030 Syntax error: "syntax error at '*'"
excpt.h(102) Error E0030 Syntax error: "syntax error at '_CONTEXT'"
excpt.h(103) Error E0030 Syntax error: "syntax error at '_DISPATCHER_CONTEXT'"
excpt.h(105) Error E0030 Syntax error: "syntax error at ')'"
excpt.h(127) Error E0025 Error in #if expression
excpt.h(180) Error E0024 Error in #pragma
100_stddef.h(73) Error E0030 Syntax error: "syntax error at 'INT'"
_stddef.h(83) Error E0030 Syntax error: "syntax error at 'UNSIGNED'"
_stddef.h(93) Error E0030 Syntax error: "syntax error at 'WCHAR_T'"
100_stddef.h(102) Error E0030 Syntax error: "syntax error at 'WCHAR_T'"
_stddef.h(109) Error E0030 Syntax error: "syntax error at 'LONG'"
stdarg.h(35) Error E0030 Syntax error: "syntax error at 'VOID'"
200windef.h(11) Error E0024 Error in #pragma
100windef.h(161) Error E0030 Syntax error: "syntax error at 'UNSIGNED'"
windef.h(165) Error E0030 Syntax error: "syntax error at 'INT'"
winnt.h(19) Error E0024 Error in #pragma
mbctype.h(57) Error E0030 Syntax error: "syntax error at '__CDECL'"
mbctype.h(66) Error E0030 Syntax error: "syntax error at '__CDECL'"
mbctype.h(73) Error E0030 Syntax error: "syntax error at '__CDECL'"
ctype.h(52) Error E0030 Syntax error: "syntax error at 'SHORT'"
ctype.h(65) Error E0030 Syntax error: "syntax error at '__CDECL'"
ctype.h(78) Error E0030 Syntax error: "syntax error at '__CDECL'"
ctype.h(79) Error E0030 Syntax error: "syntax error at '}'"
100200winnt.h(96) Error E0030 Syntax error: "syntax error at 'UNSIGNED'"
winnt.h(99) Error E0030 Syntax error: "syntax error at 'UNSIGNED'"
100basetsd.h(22) Error E0024 Error in #pragma
basetsd.h(47) Error E0030 Syntax error: "syntax error at 'UNSIGNED'"
basetsd.h(62) Error E0025 Error in #if expression
basetsd.h(88) Error E0030 Syntax error: "syntax error at '__W64'"
100basetsd.h(109) Error E0025 Error in #if expression
200basetsd.h(289) Error E0030 Syntax error: "syntax error at 'ULONG_PTR'"
basetsd.h(295) Error E0030 Syntax error: "syntax error at 'ULONG_PTR'"
300basetsd.h(302) Error E0030 Syntax error: "syntax error at '__INT64'"
basetsd.h(311) Error E0030 Syntax error: "syntax error at 'UNSIGNED'"
basetsd.h(316) Error E0024 Error in #pragma
winnt.h(179) Error E0025 Error in #if expression
200300winnt.h(393) Error E0025 Error in #if expression
400500600700800900100011001200130014001500160017001800190020002100220023002400250026002700280029003000310032003300340035003600370038003900400041004200430044004500460047004800490050005100520053005400550056005700580059006000610062006300640065006600670068006900700071007200730020030030046 errors
No code generated
** error 1 ** deleting funwin.c