FiveTech Software tech support forums

... AADD(cText,"icq") AADD(cText,"imesh") AADD(cText,"xxx") AADD(cText,"porn") AADD(cText,"skype") FOR x := 1 TO len(cText) hWnd := GetActiveWindow() hWnd := FindWindow( 0 ) hWnd := GetDesktopWindow() cTit := lower(GetWindowText(hWnd)) cTit := lower(GetWindowText(hWnd2)) nPos := ...

Paco Garcia wrote:Hola
#DEFINE SW_SHOW 5

local cLink := "http://www.google.es"
ShellExecute( GetActiveWindow() ,nil,cLink,'','',SW_SHOW)

Paco, muchas gracias. Me ha funcionado perfectamente.

Un saludo

GetPrintDefault() does not use any input parameter but it is called (from printer.prg) with one parameter:

::hDC := GetPrintDefault( GetActiveWindow() )

EMG

... char lpstrTitle[ 512 ], lpstrDisplayName[ MAX_PATH ]; LPCITEMIDLIST lpIDList; _bset( ( char * ) &lpbi, 0, sizeof( lpbi ) ); lpbi.hwndOwner = GetActiveWindow(); lpbi.lpszTitle = hb_parc( 1 ); lpbi.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN + BIF_USENEWUI; lpIDList = SHBrowseForFolder( ...

... } } SCAN_DeallocateBuffer(lpScanBuffer); } state = FALSE; SCAN_SetSoftTrigger(hScanner, &state); } else { MessageBox( GetActiveWindow(), L"Error en SCAN_Enable", L"Ok", 0 ); } } else { MessageBox( GetActiveWindow(), L"Error en SCAN_Open", L"Ok", 0 ); } } #pragma ENDDUMP

... = L"SCN1:"; HB_FUNC( SCAN_OPEN ) { DWORD dwResult = SCAN_Open( szScannerName, &hScanner ); if ( dwResult != E_SCN_SUCCESS ) MessageBox( GetActiveWindow(), L"Fallo en Scan_Open", L"Ok", 0 ); } #pragma ENDDUMP Y este es el mensaje : bitest1.c Creating library jobitest1.lib and object jobitest1.exp ...

... *********************************************************** METHOD New( cFile, hWnd ) CLASS TSCAN32 IF Empty( hWnd ) ::hWnd := GetActiveWindow() ENDIF IF Empty( cFile ) ::cFile := "TestTscan32.jpg" ELSE ::cFile := cFile ENDIF IF !::IsAvailable() ::lError := .T. // MsgStop( "TWAIN ...

... *********************************************************** METHOD New( cFile, hWnd ) CLASS TSCAN32 IF Empty( hWnd ) ::hWnd := GetActiveWindow() ENDIF IF Empty( cFile ) ::cFile := "TestTscan32.jpg" ELSE ::cFile := cFile ENDIF IF !::IsAvailable() ::lError := .T. // MsgStop( "TWAIN ...

... char SerialNo[18]=""; BOOL bRes = KernelIoControl(IOCTL_HAL_GET_DEVICEID, 0, 0, arrOutBuff, nBuffSize, &dwOutBytes); if (!bRes) { MessageBox( GetActiveWindow(),_T("could not retrieve serial number"),_T("Error"),0); hb_retc("0"); } for (unsigned int i = 0; i<dwOutBytes; i++) { sprintf(strNextChar,"%02X", ...

... SND_RESOURCE | SND_ASYNC); /// PlaySound ( cfile, GetResources() ? GetResources(): GetInstance(), SND_RESOURCE | SND_ASYNC); // MessageBox( GetActiveWindow(),cfile , _T("VIEW THIS"), 0 ); } /* void HB_FUN_PLAYWAVMEM() { BYTE buffer[100*1024]; CFile file; file.Open(_T("\\Windows\\empty.wav"), ...