Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

"c:\program files(x86)\Adobe\Acrobat\DC\Acrobat.exe" /n /s /o /h /p "c:\temp\kunden.pdf" /t "HPLaserJet 2500"

Code: Alles auswählen

   lSuccess := ShellExecute( 0, ;
                             "print", ;  77 DRUCKEN
                             cPath + cFILE, ;
                             cPara, ;
                             cHome, ;
                             SW_NORMAL

Code: Alles auswählen

fExists(cAcrobat)    // ergibt .T., die Variable enthält Laufwerk, Pfad und Programmnamen
RunShell(, cAcrobat, .T.)     // ergibt einen OS Error 2 - "file not found"

Code: Alles auswählen

------------------------------------------------------------------------------
FEHLERPROTOKOLL von "C:\Entwicklungen\Version.P02\demo.exe" Datum: 20.06.2021 21:19:26

Xbase++ Version     : Xbase++ (R) Version 2.00.1440
Betriebssystem      : Windows 10 2009 Build 19043
------------------------------------------------------------------------------
oError:args         :
          -> VALTYPE: U VALUE: NIL
          -> VALTYPE: C VALUE: "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
          -> VALTYPE: L VALUE: .T.
oError:canDefault   : J
oError:canRetry     : J
oError:canSubstitute: N
oError:cargo        : NIL
oError:description  : Betriebssystemfehler
oError:filename     :
oError:genCode      :         40
oError:operation    : RunShell
oError:osCode       :          2
oError:severity     :          2
oError:subCode      :          4
oError:subSystem    : BASE
oError:thread       :          3
oError:tries        :          1
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------
Aufgerufen von PRINTPDF(86)
Aufgerufen von (B)GETTYPELIST(110)
Aufgerufen von PRINTFOUNDENTRY(574)
Aufgerufen von (B)SEARCHCONTENTDO(506)
Aufgerufen von SEARCHCONTENTDO(538)
Aufgerufen von (B)SEARCHCONTENT(70)

Code: Alles auswählen

file('"existierende_Datei"')

Code: Alles auswählen

oXbp:dataLink := {|x| if(.not. x == NIL .and. left(x, 1) == '"' .and. right(alltrim(x), 1) == '"', x := substr(x, 2, len(alltrim(x)) - 2), ),;

Code: Alles auswählen

      CASE lSuccess = SE_ERR_NOASSOC                                  // Keine verknüЃpfte Anwendung
         // Falls ShowOpenWithDialog = True, wird der Dialog
         // "öffnen mit" für diese Datei angezeigt:
         // Shell "RunDLL32 shell32.dll,OpenAs_RunDLL " & Filename

         DllCall( "SHELL32.DLL", DLL_STDCALL, "OpenAs_RunDLL", ;
                  APPDESKTOP() :GetHWND(), ;
                  0, ;
                  cPath + cFile, ;
                  0, ;
                  CURDIR(), ;
                  SW_NORMAL )   

Code: Alles auswählen

*------------------------------------------------------------- ZeigHinweise() -------------------------
function ZeigHinweise()
   local aHinweise, aPDFDateien, aTemp

   aTemp := directory(Hilfstabellenverzeichnis()+"*.PDF")

   if ! empty(aTemp)
      aPDFDateien := {}       // tats„chlicher Dateiname
      aEval(aTemp,{|aFileInfo| aadd(aPDFDateien,convToOEMCP(aFileInfo[1])) })
   else
      InfoBox("Es wurden keine Hinweise hinterlegt.")
   endif

   if ! empty(aPDFDateien)
      aHinweise := Auswahlliste(aPDFDateien," Hinweistexte")
   endif

   if ! empty(aHinweise)
      if " " $ aHinweise[1]
         infobox("Der Dateiname '"+aHinweise[1]+"' enth„lt Leerzeichen."+CRLF+;
                 "Dies ist nicht erlaubt. Bitte H. Brandel anrufen (1288) !")
      else
         RunShell( '/C START '+Hilfstabellenverzeichnis()+convToANSICP(aHinweise[1]),,.t.,.t. ) // das ist noch eine OEM EXE !
      endif
   endif

return nil

Code: Alles auswählen

         cDQ := chr(34)
         RunShell( '/C START '+cDQ+Hilfstabellenverzeichnis()+convToANSICP(aHinweise[1])+cDQ  ,  , .t. , .t. )

Code: Alles auswählen

*---------------------------------------------------------------------------
METHOD _dlgWellerBasis_ERW:ZeigBehandlungsplan()
   local cPfad := GetPfadBehandlungsplan()
   local cPDF  := "Behandlungsplan_"+(::BASERHAU)->WE_KEY+".PDF"
   local cEXE
   do case
      case empty(cPfad)
           msgbox("Pfad zu den Behandlungsplänen wurde noch nicht festgelegt")
      case ! fExists(cPfad+cPDF)
           msgbox("PDF existiert nicht:"+CRLF+cPfad+cPDF)
      otherwise
           cEXE := GetStandardProgramm(cPDF,cPfad)
           RunShell( cPfad+cPDF, cExe, .t. )
           setAppFocus(SetAppWindow())
   endcase

RETURN NIL

Code: Alles auswählen

*---------------------------------------------------------------------------
METHOD _dlgWellerBasis_ERW:ZeigBehandlungsplan()
   local cPfad := GetPfadBehandlungsplan()
   local cPDF  := "Behandlungsplan_"+(::BASERHAU)->WE_KEY+".PDF"
   local cEXE
   local cDQ   := chr(34)
   do case
      case empty(cPfad)
           msgbox("Pfad zu den Behandlungsplänen wurde noch nicht festgelegt")
      case ! fExists(cPfad+cPDF)
           msgbox("PDF existiert nicht:"+CRLF+cPfad+cPDF)
      otherwise
           cEXE := GetStandardProgramm(cPDF,cPfad)

           RunShell( cDQ+cPfad+cPDF+cDQ, cExe, .t. )

           setAppFocus(SetAppWindow())
   endcase

RETURN NIL

Code: Alles auswählen

*--------------------------------------------------------------------------
FUNCTION GetStandardProgramm(cFile, cPath)
   LOCAL cExe := ChrR(0,260) // MAX_PATH is 260
   IF @shell32:FindExecutableA(cFile, cPath, @cExe) < 32
      cExe := ""
   ELSE
      cExe := TrimZ(cExe)
   END
RETURN cExe
*-----------------------------------------------------------------------------
FUNCTION GetPfadBehandlungsplan()
   local cPfad := GetProgIni("Behandlungsplan", "Pfad", "")
   if ! empty(cPfad)
      if right(cPfad,1) # "\"
         cPfad += "\"
      endif
   endif
Return cPfad

* in XB_API.PRG
#include "Dll.ch"
DLLFUNCTION FindExecutableA( cF, cP, @cE ) USING STDCALL FROM SHELL32.DLL
DLLFUNCTION GetPrivateProfileStringA(cSection, cVar, cDefault, @cBuffer, nBufferLen, cFileName) USING STDCALL FROM KERNEL32.DLL
DLLFUNCTION WritePrivateProfileStringA(cSection, cVar, cValue, cFileName)                       USING STDCALL FROM KERNEL32.DLL