Estou tentando aprender What32 mas, nao estou conseguindo compilar
o exemplo abaixo:
#Include "windows.ch"
#Include "wintypes.ch"
#Include "cstruct.ch"
#Include "winstruc.ch"
#include "commdlg.ch"
function main()
local aFileName
local cFileName
local cPath := curdrive()+":\"+curdir()
local aFilter := {{"Zip Files","*.zip"},{"Text Files","*.*"}}
setmode(50,80)
alert("Begin; OK to Continue")
// what32 part
aFileName := getopenfilename(;
getactivewindow(),; // hWnd:
cPath,; // cPath:
"Select Files to Parse",; // cTitle:
aFilter,; // aFilter:
OFN_ALLOWMULTISELECT+OFN_EXPLORER,;// nFlags:
cPath,; // cInitDir:
"zip",; // cDefExt:
1) // nIndex:
// show dialog results
if !empty(aFileName)
for each cFileName in aFileName
? "Selected-> "+cFileName
next
endif
alert("End; OK to Exit")
return(NIL)
Estes sao os erros na linkagem
Error: Unresolved external '_hb_gt_GetText' referenced from C:\XHARBOUR\LIB\RTL.
LIB|gtapi
Error: Unresolved external '_hb_gt_PutText' referenced from C:\XHARBOUR\LIB\RTL.
LIB|gtapi
Error: Unresolved external '_hb_gt_SetAttribute' referenced from C:\XHARBOUR\LIB
\RTL.LIB|gtapi
Error: Unresolved external '_hb_mouse_IsPresent' referenced from C:\XHARBOUR\LIB
\RTL.LIB|mouseapi
Error: Unresolved external '_hb_mouse_Show' referenced from C:\XHARBOUR\LIB\RTL.
LIB|mouseapi
Error: Unresolved external '_hb_mouse_Hide' referenced from C:\XHARBOUR\LIB\RTL.
LIB|mouseapi
Error: Unresolved external '_hb_mouse_Col' referenced from C:\XHARBOUR\LIB\RTL.L
IB|mouseapi
Os BATs sao os mesmos que uso para compilar outros sistema XHarbour+GTwvW sem problemas.
Sera que a LIB RTL esta incompleta??
Voce podem me dar uma luz do que acontecendo
?Grato,
cez_a@ubbi.com.br
