GFA-BASIC WIN300NAaNB EE2lp_Tlpf32hDLG32-à<,,,NCFF32NDNENF fFiltIDirCHARNGNHNINJNKNLCHARNM0InitFF32DLG_InitMeldeMESSAGENN OPENFILENAMEÿÿNO lStructSize hwndOwnernMaxFilenMaxCustomFilter nMaxFileTitleFlags hInstance nFilterIndex nFileOffsetnFileExtension lCustDatalpfnHook lpstrFilterlpstrCustomFilter lpstrFilelpstrFileTitlelpstrInitialDir lpstrTitle lpstrDefExtlpTemplateName nCustomFilterNPNQ€ lpstrTitle lpstrFilter lpstrFilelpstrInitialDirlpstrFileTitlelpstrCustomFilter lpstrDefExtlpTemplateNameNRDlgODlg0|ï=NSNT DLG_Open DLG_LastError=d=\<LNUNVNW`GetProcAddress32WLoadLibraryEx32WFreeLibrary32WGetVDMPointer32W GetVDMPointerDTMKÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPR(hX:¤ëÀ:‰~ZÄ~ ~0” Text Files*.txtAll Files*.*¨©ZÛ0~`Y~hY~Z~8YÙ¨©ZÛ0~p~Y~xY~ ”C:\¨©ZÛ0~€Y~ˆ~(Y~Y~XY~˜“]È$YŠë„È$-G70 for E1 means there was an error or cancel was clickedÿ-ÿ-GError 1=YýþGÿ-ÿ-GE2 should say which one...ÿ-GError 2=Yýþîé-Y&Yà©æ•ÿEZFóêˆZ<îìIFâìñ.î=LEN(ñ.)'thesizeofthestructureñ.î=WIN(1)'handleoftheformcallingthefunctionñ.î0=_INSTANCEå="TextFiles"+CHR$(0)+"*.txt"+CHR$(0)+"AllFiles"+CHR$(0)+"*.*"+CHR$(0)+CHR$(0)ñ.î`=^ö0(V:å,1)ñ.îh=0'lengthcustombufferñ.î=0'lengthcustombufferñ.î8=1å=STRING$(260,0)'initializebufferthatreceivespathandfilenameñ.îp=^ö0(V:å,1)ñ.î=260'lengthoffileandpathnamebufferñ.îx=NULL'SPACE$(255)'initializebufferthatreceivesfilenameñ.î =0'255'lengthoffilenamebufferå="C:\"+CHR$(0)ñ.î€=^ö0(V:å,1)ñ.îˆ=NULL'"Openafile"'textdisplayedinthebox'stitlebar'Allowonlyexistingfilesandhidetheread-onlycheckboxñ.î(=OFN_PATHMUSTEXISTOROFN_FILEMUSTEXISTOROFN_HIDEREADONLYñ.î=0ñ.îX=0ñ.î˜=0á=@ó(V:ñ.)IFá=0á=@ó()PRINT"0forE1meanstherewasanerrororcancelwasclicked"PRINTPRINT"Error1=";á,""PRINTPRINT"E2shouldsaywhichone..."PRINT"Error2=";á,ENDIFREPEAT?AT(0,0)CHAR{V:å}GETEVENTUNTILMENU(1)=4CLOSEW#1ENDIF (>4x>ŠjÜ‚ôŒ–4 >°„ÈœÔÎÞè@øRj°ì&00::DDN\^jfzp¼°Â¶âÎèÔ ö( ,0J.N8^HdRhXPRfX’úÿPúÿY »úÿp™Y”GetOpenFileNameAdÛp™™™ÊÂFUNCTIONó(á)RETURNP:(á )(L:á,L:^ö(á,"GetOpenFileNameA"),L:%1,L:1)ENDFUNCbPfXPRTR’Y Y”CommDlgExtendedErrorAÙdÛp™Y™Y™ ÊÂFUNCTIONó()RETURNP:(á )(L:^ö(á,"CommDlgExtendedErrorA"),L:%0,L:0)ENDFUNC PJTRPR4<òÿµŠòÿZ”kernelÝ]Ü]Ü ]Ü]Ü0@à”kerneldO” CallProc32WEd_$ ” comdlg32.dlldYYÛ$«¶”Problem Initializing DLLsi”ErrorYIŸ=PROCEDUREìTRY'---------------------------------------------------------------------------------'DeclareWOWfunctionsfromthen16-bitskernel'---------------------------------------------------------------------------------DLL#1,"kernel"DECLDWORDö(L,L,L)DECLBOOLö (L)DECLDWORDö(L,L)DECLDWORDö0(L,W)ENDDLL'---------------------------------------------------------------------------------'ObtainprocedureadressofCallProc32Wbywhich32-bitsDLLfunctionsarecalled.'Load32-bitsLibraryanddefinefunctionsrequiredfromthe32-bitsDLL'---------------------------------------------------------------------------------á =GetProcAddress(GetModuleHandle("kernel"),"CallProc32W")á=^ö("comdlg32.dll",0,0)â=-1CATCHMESSAGE"ProblemInitializingDLLs","Error",0,àRETURN f–ê"ú4F X4jHnNn¢nön@n”˜Ò¼ðÄöÈüþ.4PRÄ^<Zdd´0¨Z”DLG TESTIprrr0r`rhrr8rprrxr r€rˆr(s@sHrrPrXr˜q}=PROCEDUREìOPENW#1,100,100,400,180,48TITLEW#1,"DLGTEST"//SHOWW#1,SW_MINIMIZE//stupidWin95/NTactivationproblem//SHOWW#1,SW_NORMALTYPEí:-LONGî'AsLong-LONGî'AsLong-LONGî0'AsLong-LONGî`'AsString-LONGîh'AsString-LONGî'AsLong-LONGî8'AsLong-LONGîp'AsString-LONGî'AsString-LONGîx'AsString-LONGî 'AsString-LONGî€'AsString-LONGîˆ'AsString-LONGî('AsLong-WORDî@'AsInteger-WORDîH'AsInteger-LONGî'AsString-LONGîP'AsLong-LONGîX'AsLong-LONGî˜'AsStringENDTYPEí:ñ.RETURN $*6>6|6’<œB°HÄNØTîZ`f,lBrXxn~„„šаÄ–Üœô¢ ¨®2´H¸PÀXÄ^EP