Windows Rechner (Calc)

[Koverhage]

Hallo,

ich möchte in der Xbase++ Anwendung die Möglichkeit geben, den Windows Rechner aufzurufen
und das Ergebnis zu übernehmen.
Es gibt wenn ich das so sehe 2 Möglichkeiten:
1. Der Anwender kopiert das Ergebnis in die Zwischenablage
2. mit der SendMessage Function.
Die 2. Möglichkeit verstehe ich nicht, denn der Anwender ruft den Rechner auf, führt Berchnungen durch, bis er das Ergebnis hat
und schließt dann den Rechner, wie soll die Funktion dann das Ergebnis finden ?


hier mal der VB Code für die 2. Möglichkeit den ich im Netz gefunden habe.

Hat das schon jemand gemacht und gelöst ?

Option Explicit

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
ByVal hWnd As Long, _
ByVal Msg As Long, _
wParam As Any, _
lParam As Any) As Long
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" ( _
ByVal hwndParent As Long, _
ByVal hwndChildAfter As Long, _
ByVal lpszClass As String, _
ByVal lpszWindow As String) As Long

Private Const WM_GETTEXT As Long = &HD
Private Const WM_GETTEXTLENGTH As Long = &HE

Private Sub Command1_Click()
Dim CalcHwnd As Long ' Calculator Handle
Dim Edithwnd As Long ' Edit window Handle
Dim slength As Long ' Länge des Textes im gefundenen Fenster
Dim wintext As String ' Textinhalt des Fensters
Dim retval As Long ' Ergebnis

CalcHwnd = FindWindowEx(0, 0, "SciCalc", "Calculator") '//Calculator Handle
Edithwnd = FindWindowEx(CalcHwnd, 0, "Edit", vbNullString) '//Edit window Handle

If Edithwnd = 0 Then
Debug.Print "Edit box wurde nicht gefunden"
Else
slength = SendMessage(Edithwnd, WM_GETTEXTLENGTH, ByVal CLng(0), ByVal CLng(0)) + 1

wintext = Space$(slength)

retval = SendMessage(Edithwnd, WM_GETTEXT, ByVal slength, ByVal wintext)

wintext = Left$(wintext, retval)

'//Das Resultat
Label1.Caption = wintext

End If

End Sub

[AUGE_OHR]

CalcHwnd = FindWindowEx(0, 0, "SciCalc", "Calculator") '//Calculator Handle
Edithwnd = FindWindowEx(CalcHwnd, 0, "Edit", vbNullString) '//Edit window Handle

retval = SendMessage(Edithwnd, WM_GETTEXT, ByVal slength, ByVal wintext)

ich habe mal das daraus gemacht

Code: Alles auswählen

nCalcHwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA", 0, 0, "SciCalc", "Rechner")
nEdithwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA",nCalcHwnd, 0,"Edit","")
nLength := SendMessageA(nEdithwnd, WM_GETTEXTLENGTH, 0, 0) +1
cText   := SPACE(nLength) + Chr(0)
cString := SendMessageA(nEdithwnd, WM_GETTEXT, @nLength, @cText)
ALTD()
cText := STRTRAN(cText,CHR(0),"")

ich habe nEdithwnd mit WinID überprüft und sie stimmt überein.
Leider bekomme ich für cString nur die Länge LEN(cText) zurück ...

noch ein Versuch mit Notepad

Code: Alles auswählen

nEdithwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA",nNoteHwnd, 0,"Edit","")
nLength := SendMessageA(nEdithwnd, WM_GETTEXTLENGTH, 0, 0) +1
cText   := SPACE(nLength) + Chr(0)
cString := SendMessageA(nEdithwnd, WM_GETTEXT, @nLength, @cText)
ALTD()
cText := STRTRAN(cText,CHR(0),"")

dito nur die Länge des Text

[Günter Beyes]

Hallo,

@Jimmy,

Code: Alles auswählen

SendMessageA(nEdithwnd, WM_GETTEXT, @nLength, @cText)

nLength darf nicht by reference übergeben werden.

@Klaus,

du kannst die Abfrage in eine Schleife verpacken, die solange läuft, bis Calc beendet wird.

Gruß,
Günter

Code: Alles auswählen

#include "dll.ch"

#define WM_GETTEXT              0x000D
#define WM_GETTEXTLENGTH        0x000E

proc main()

local nCalcHwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA", 0, 0, "SciCalc", "Rechner")
local nEdithwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA",nCalcHwnd, 0,"Edit","")
local cResult   := ""
local cPrevious := ""
local nLength
local cText
local rc

local SendMessageA := DllPrepareCall( "user32.dll", DLL_STDCALL, "SendMessageA" )
local IsWindow     := DllPrepareCall( "user32.dll", DLL_STDCALL, "IsWindow" )
 
set charset to ansi

if nEdithwnd = 0
   Msgbox("Der Rechner läuft nicht", "Information" )
   return
endif

Do while DllExecuteCall( IsWindow, nEdithwnd ) != 0 // Ist das handle ungültig, wurde calc beendet.
    nLength := DllExecuteCall( SendMessageA, nEdithwnd, WM_GETTEXTLENGTH, 0, 0) +1
    cText   := SPACE(nLength)
    rc      := DllExecuteCall( SendMessageA, nEdithwnd, WM_GETTEXT, nLength, @cText)
    cResult := STRTRAN(cText,CHR(0),"")
    if ! cResult == cPrevious
      ? cResult
      cPrevious := cResult
    endif
    sleep(10)
enddo

msgbox( cResult, "Rechenergebnis" )

return

[Koverhage]

Hallo Günter,

super Danke.

Dann kann ich doch wenn nEdithwnd = 0 ist, den Rechner mit ShellExecuteA aufrufen
verarbeit ShellExexuteA die folgende Angabe ?
%windir%\system32\calc.exe

[Günter Beyes]

Hallo Klaus,

da bin ich nicht sicher; eventuell funktioniert es aber auch ohne Pfadangabe, wenn %windir%\system32 im PATH angegeben ist. Oder Getenv( "SystemRoot" ) + "\system32" verwenden.

Wenn man in calc die Ansicht (Standard/Wissenschaftlich) umschaltet, wird das Handle ungültig (und damit die Abfrageschleife beendet), weil das calc-Fenster dabei komplett neu aufbaut wird. Die Abfrageschleife müsste deshalb noch etwas geändert werden.

Gruß,
Günter

Code: Alles auswählen

lRunning := ( DllExecuteCall( IsWindow, nEdithwnd ) != 0 )

if ! lRunning
   Msgbox("Der Rechner läuft nicht", "Information" )
   return
endif

Do while lRunning
    // Calc-Edit abfragen
    (...)
    
    lRunning := ( DllExecuteCall( IsWindow, nEdithwnd ) != 0 )
    if ! lRunning
       // Ist das handle ungültig, wurde calc entweder beendet 
       // oder die Ansicht (Standard/Wissenschaftlich) umgeschaltet.
       // Um das festzustellen, wird versucht, das handle zu aktualisieren.
       sleep( 10 ) 
       nCalcHwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA", 0, 0, "SciCalc", "Rechner")
       nEdithwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA",nCalcHwnd, 0,"Edit","")
       lRunning  := ( DllExecuteCall( IsWindow, nEdithwnd ) != 0 )
    endif
enddo

[Koverhage]

Hallo Günter,

habe das jetzt so, bekomme aber leider kein Ergebnis.
Gruß
Klaus

Code: Alles auswählen

proc rechner()

local nCalcHwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA", 0, 0, "SciCalc", "Rechner")
local nEdithwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA",nCalcHwnd, 0,"Edit","")
local cResult   := ""
local cPrevious := ""
local nLength
local cText
local rc
local cProgPath :=  GetEnv("windir")+"\system32\calc.exe"

local SendMessageA := DllPrepareCall( "user32.dll", DLL_STDCALL, "SendMessageA" )
local IsWindow     := DllPrepareCall( "user32.dll", DLL_STDCALL, "IsWindow" )
local lRunning := ( DllExecuteCall( IsWindow, nEdithwnd ) != 0 )


//set charset to ansi

if ! lRunning
   IF ShellExecute(NIL, SHELL_OPEN, cProgPath,,,SW_SHOW)
      do while nEdithwnd = 0
         nCalcHwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA", 0, 0, "SciCalc", "Rechner")
         nEdithwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA",nCalcHwnd, 0,"Edit","")
         sleep(10)
      enddo
      lRunning := ( DllExecuteCall( IsWindow, nEdithwnd ) != 0 )
   ENDIF
endif

Do while lRunning
    // Calc-Edit abfragen
    nLength := DllExecuteCall( SendMessageA, nEdithwnd, WM_GETTEXTLENGTH, 0, 0) +1
    cText   := SPACE(nLength)
    rc      := DllExecuteCall( SendMessageA, nEdithwnd, WM_GETTEXT, nLength, @cText)
    cResult := STRTRAN(cText,CHR(0),"")
    if ! cResult == cPrevious
        cPrevious := cResult
    endif


    lRunning := ( DllExecuteCall( IsWindow, nEdithwnd ) != 0 )
    if ! lRunning
       // Ist das handle ungültig, wurde calc entweder beendet
       // oder die Ansicht (Standard/Wissenschaftlich) umgeschaltet.
       // Um das festzustellen, wird versucht, das handle zu aktualisieren.
       sleep( 10 )
       nCalcHwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA", 0, 0, "SciCalc", "Rechner")
       nEdithwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA",nCalcHwnd, 0,"Edit","")
       lRunning  := ( DllExecuteCall( IsWindow, nEdithwnd ) != 0 )
    endif
enddo


msgbox( cResult, "Rechenergebnis" )

return

[Günter Beyes]

Hallo Klaus,

Code: Alles auswählen

IF ShellExecute(NIL, SHELL_OPEN, cProgPath,,,SW_SHOW)

Hmm. Wie sind SHELL_OPEN und SW_SHOW definiert, und wie sieht der Code von ShellExecute() aus?

Das folgende funktioniert hier nämlich.

Gruß,
Günter

Code: Alles auswählen

   #define SW_SHOW        5

   cProgPath :=  GetEnv("windir")+"\system32\calc.exe"
   rc := ShellExecuteA( 0, 0, cProgPath, 0, 0, SW_SHOW )
   if rc < 32
      Msgbox( cProgPath + " kann nicht ausgeführt werden. Fehlercode " + var2char( rc), "Information" )
      return
   else
      sleep(10)
      nCalcHwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA", 0, 0, "SciCalc", "Rechner")
      nEdithwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA",nCalcHwnd, 0,"Edit","")
      lRunning := ( DllExecuteCall( IsWindow, nEdithwnd ) != 0 )
  
      Msgbox( cProgPath + " gestartet, Rückgabewert " + var2char( rc ) + ;
              " Edit-Handle " + var2char( nEdithwnd ), "Information" )
   endif   

   DLLFUNCTION ShellExecuteA( hwnd, lpOperation, lpFile, lpParameters, lpDirectory, nShowCmd ) ;
   using stdcall from shell32.dll

[Koverhage]

Hallo Günter,

#define SHELL_OPEN "open"
#define SW_NORMAL 1


FUNC ShellExecute(nWhnd, cMode, cFile, cPara, cDir, nShow )
Local cBin := DllPrepareCall( "SHELL32.DLL", DLL_STDCALL, "ShellExecuteA")
Local nErg
SET DEFAULT to nWhnd to AppDesktop():GetHWnd()
SET DEFAULT to cMode to SHELL_OPEN
SET DEFAULT to nShow to SW_NORMAL

cPara := iif( empty(cPara), cPara := 0, '"' + cPara +'"')
iif( empty(cDir), cDir:=0, )
nErg := DllExecuteCall(cBin, nWhnd, @cMode, @cFile, @cPara, @cDir, nShow)

RETURN ( IIF( nErg <= 32, .F., .T.))

Gruß
Klaus

[Günter Beyes]

Hallo Klaus,

damit funktioniert das hier auch.

Lass dir doch mal den Rückgabewert von DllExecuteCall(cBin, nWhnd, @cMode, @cFile, @cPara, @cDir, nShow) anzeigen.

Gruß,
Günter

[Koverhage]

Hallo Günter,

der Rückgabewert ist 42.

Gruß
Klaus

[Koverhage]

Ich gebe auf. Ich bekomme keinen Rückgabewert,
es funktioniert soweit alles, ich rufe den Rechner auf, wenn ich den beende
kommt auch die Box mit dem nicht vorhandenen Ergebnis.

Habe auch mal versucht, mit WM_SETTEXT eine Vorgabe an den Rechner
zu senden, aber auch das klappt nicht.

[AUGE_OHR]

Ich gebe auf. Ich bekomme keinen Rückgabewert,
es funktioniert soweit alles, ich rufe den Rechner auf, wenn ich den beende
kommt auch die Box mit dem nicht vorhandenen Ergebnis.

hm ... bei mir klappt es sehr schön.

Code: Alles auswählen

#include "Xbp.ch"
#include "DLL.ch"
#include "Appevent.ch"

#define WM_GETTEXT          0x000D
#define WM_GETTEXTLENGTH    0x000E
#define WM_CLOSE            0x0010

PROCEDURE APPSYS
RETURN

PROCEDURE MAIN
LOCAL nEvent, mp1, mp2, oXbp
LOCAL cVarA := "1234.12", cVarB := "9999999.99"
LOCAL oDlg,oSLE1,oSLE2

   oDlg          := XbpDialog():new( ,, {50,30}, {300,200} )
   oDlg:title    := "SLECALC"
   oDlg:tasklist := .T.
   oDlg:create()

   oSLE1              := XbpSLE():new(oDlg:drawingArea , , {100,100}, {100,30} )
   oSLE1:autoTab      := .T.
   oSLE1:bufferLength := 12
   oSLE1:dataLink := {|x| IIf( x==NIL, cVarA, cVarA := x ) }
   oSLE1:create()
   oSLE1:setData()
   oSLE1:killInputFocus := { |x,y,oSLE| NIL }
   oSLE1:setInputFocus  := { |x,y,oSLE| GetFromCalc(oSLE1) }

   oSLE2              := XbpSLE():new(oDlg:drawingArea , , {100, 50}, {100,30} )
   oSLE2:tabStop      := .T.
   oSLE2:bufferLength := 12
   oSLE2:dataLink := {|x| IIf( x==NIL, cVarB, cVarB := x ) }
   oSLE2:create()
   oSLE2:setData()
   oSLE2:killInputFocus := { |x,y,oSLE| NIL }
   oSLE2:setInputFocus  := { |x,y,oSLE| GetFromCalc(oSLE2) }

   CenterControl(oDlg)
   setappwindow(oDlg)
   setappfocus(oSLE1)

   nEvent := 0
   DO WHILE nEvent <> xbeP_Close
      nEvent := AppEvent( @mp1, @mp2, @oXbp )
      oXbp:handleEvent( nEvent, mp1, mp2 )
   ENDDO

RETURN

PROCEDURE GetFromCalc(oSLE)
LOCAL nCalcHwnd 
LOCAL nEdithwnd
LOCAL cString
LOCAL nLength
LOCAL cText    := ""
LOCAL SendMessageA := DllPrepareCall( "user32.dll", DLL_STDCALL, "SendMessageA" )

   nCalcHwnd := DllCall("User32.dll",DLL_STDCALL,"FindWindowA",0,"Rechner"+Chr(0) )

   IF .NOT. nCalcHwnd > 0
      RunShell( "","CALC.EXE", .T.)
      RETURN
   ENDIF

   IF nCalcHwnd > 0
      nCalcHwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA", 0, 0, "SciCalc", "Rechner")
      nEdithwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA",nCalcHwnd, 0,"Edit","")

      nLength   := DllExecuteCall(SendMessageA,nEdithwnd, WM_GETTEXTLENGTH, 0, 0) +1
      cText     := SPACE(nLength) + Chr(0)
      cString   := DllExecuteCall(SendMessageA,nEdithwnd, WM_GETTEXT, nLength, @cText)
      cText     := STRTRAN(cText,CHR(0),"")

      IF VAL(cText) > 0
         oSLE:setdata(cText)
         // Rechner "löschen"/"schliessen"
         DllExecuteCall(SendMessageA,nCalcHwnd,WM_CLOSE,0,0)
      ENDIF
   ENDIF

RETURN

[Koverhage]

Hallo Günter und Jimmy,

danke euch beiden.

Bin jetzt soweit gekommen.
1. Ich darf cResult nicht nehmen wenn es empty ist (immer beim Schließen vom Rechner)
2. Ich kann einen String mit WM_SETTEXT übergeben, nützt mir zwar nichts, da der Rechner ja im dec Modus
nur Zahlen nimmt.
3. Kann den Rechner auch mit WM_CLOSE beenden , wenn ich einen Wert habe.

Primär waren es 2 Probleme, wobei eines immer noch besteht.
Problem wie in Punkt eins kann ich abfangen und klappt dann auch.

Das 2. Problem: Unter Windows 7 64-bit funktioniert das ganze nicht, da nCalcHwnd 0 ist.

Jimmy hast Du das auch mal unter Windows 7 64-bit laufen lassen ?

Code: Alles auswählen

proc rechner()

local nCalcHwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA", 0, 0, "SciCalc", "Rechner")
local nEdithwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA",nCalcHwnd, 0,"Edit","")
local cResult   := ""
local cPrevious := ""
local cInitValue := "123456789"+chr(0)
local nLength
local cText
local rc
local cProgPath :=  GetEnv("windir")+"\system32\calc.exe"

local SendMessageA := DllPrepareCall( "user32.dll", DLL_STDCALL, "SendMessageA" )
local IsWindow     := DllPrepareCall( "user32.dll", DLL_STDCALL, "IsWindow" )
// Prfen ob nEdithwnd ein gltiges Fenbster ist
local lRunning := ( DllExecuteCall( IsWindow, nEdithwnd ) != 0 )

//local nCharSet := SET(_SET_CHARSET,ANSI)



if ! lRunning
   IF ShellExecute(NIL, SHELL_OPEN, cProgPath,,,SW_SHOW)
      do while nEdithwnd = 0
         // alt Rechner
         nCalcHwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA", 0, 0, "SciCalc", "Rechner")
         nEdithwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA",nCalcHwnd, 0,"Edit","")
         sleep(10)
      enddo
      lRunning := ( DllExecuteCall( IsWindow, nEdithwnd ) != 0 )
   ENDIF
endif
//msgbox(str(nCalchwnd)+"|"+str(nedithwnd))

DllExecuteCall( SendMessageA, nEdithwnd, WM_SETTEXT, 0, cInitValue)

Do while lRunning
    // Calc-Edit abfragen
    nLength := DllExecuteCall( SendMessageA, nEdithwnd, WM_GETTEXTLENGTH, 0, 0) +1
    cText   := SPACE(nLength)
    rc      := DllExecuteCall( SendMessageA, nEdithwnd, WM_GETTEXT, nLength, @cText)
    cResult := STRTRAN(cText,CHR(0),"")
    if !empty(cResult)
    if ! cResult == cPrevious
        cPrevious := cResult
    endif
    endif
    if val(cResult) > 0
//       DllExecuteCall( SendMessageA, nCalcHwnd, WM_CLOSE, 0, 0)
    endif



    lRunning := ( DllExecuteCall( IsWindow, nEdithwnd ) != 0 )
    if ! lRunning
       // Ist das handle ungültig, wurde calc entweder beendet
       // oder die Ansicht (Standard/Wissenschaftlich) umgeschaltet.
       // Um das festzustellen, wird versucht, das handle zu aktualisieren.
       sleep( 10 )
       nCalcHwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA", 0, 0, "SciCalc", "Rechner")
       nEdithwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA",nCalcHwnd, 0,"Edit","")
       lRunning  := ( DllExecuteCall( IsWindow, nEdithwnd ) != 0 )
//       msgbox(str(nCalchwnd)+"|"+str(nedithwnd))
    endif
enddo


msgbox( cPrevious, cResult, "Rechenergebnis" )

return

[AUGE_OHR]

Code: Alles auswählen

   IF ShellExecute(NIL, SHELL_OPEN, cProgPath,,,SW_SHOW)

also in der Zeile ist NIL verkehrt. es müsste (,SHELL_OPEN ...) sein ?!

Code: Alles auswählen

      lSuccess := DllCall( "SHELL32.DLL"  , DLL_STDCALL, ;
               "ShellExecuteA", AppDesktop():GetHWND(), "open", cPath+cFile,;
               NIL, CurDir(), SW_NORMAL )  // SW_MAXIMIZE

      DO CASE

      CASE lSuccess > 32                  // Aufruf erfolgreich
         Retvar := .T.

      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(), NIL, cPath+cFile,;
               NIL, CurDir(), SW_NORMAL )  // SW_MAXIMIZE

         //  Die Auswahlm”glichkeit wird als Erfolg gewertet:
         Retvar := .T.
      OTHERWISE
         // ShellExecute war erfolglos.
         // Boolean-Standardwert False zurckgeben

         Retvar := .F.
      ENDCASE

warum nicht einfach

Code: Alles auswählen

   IF .NOT. nCalcHwnd > 0
      RunShell( "","CALC.EXE", .T.)
      RETURN
   ENDIF

Nachtrag : auch mit einem NIL funktioniert deine ShellExecute() nicht ... es gibt bei CALC.EXE kein SHELL_OPEN = "open"

Die ShellExecuteA kann nur bei "Verknüpfung" wirken, also wenn du ein BMP hast dann Paint "open", aber CALC hat kein "open" ...

p.s. der "Rest" (WM_GETTEXT) funktioniert übrigens

[Koverhage]

Jimmy,

mit Shellexecute wird Calc auf beiden rechnern ausgeführt. Auf dem XP-Rechner bekommen
ich auch einen nCalcHwnd zurück, unter Windows 7 64-bit aber nicht.
Werde das mal mit Runshell probieren.

[Koverhage]

Auch mit RunShell läuft es unter Windows 7 64-bit nicht (bei mir)
Unter Windows XP läuft alles TOP.

[urbi]

Hi,

habe vor langer Zeit mal einen Rechner geschrieben,

beim Aufruf einfach das sleobject übergeben:

z.B. ::PBEDITCLC:ACTIVATE:={||RECHNER(editfocus,0),SETAPPFOCUS(editFocus)}

mit F10 wird das Ergenis an das sleobject übergeben und der Rechner geschossen.



wenn interessiert kann ich gerne das Prgfile zur Verfühgung stellen

Gruss Urbai

[Herbert]

Ich habe auch einen ganz einfachen Rechner geschrieben. Als Idee zum Verbessern.
'!' setzt die im SLE sichtbare Zahl in die Zwischenablage.

[Koverhage]

Da der Aufruf von Calc unter beiden System funktioniert, lasse ich das jetzt so.
Wenn der Anwender ein System hat, wo die Rückgabe nicht funktioniert
ist ja einfach in Calc auf Bearbeiten zu gehen und kopieren zu sagen
und das Ergebnis mit strg+v einzufügen.

[AUGE_OHR]

@Urbi und @Herbert

danke für euren Vorschlag.
ich sehe in diesem Thread weniger den "Rechner" denn auf diese Art und Weise kann ich ja "alles mögliche" damit machen z.b. einen Text aus Notepad holen/setzen.

alle "normalen" Fenster finde ich ja auch in dem Taskmanager, nun suche ich den Weg für die Programm welche sich im Sys_Tray abgelegt haben.

Da ist z.b. "Fritz" welcher mir ja auch die Rufnummer im A/B anzeigt ...
mittels WinID http://www.dennisbabkin.com bekomme ich ja das Handle und Parent ClassName raus.
ich muss es nun "auf-poppen" und mir dann das Control suchen welches ich "auslesen" möchte.

Frage : was bedeutet Parent ClassName "#32770"

[Herbert]

Noch ein Nachtrag:
Läuft doch unter Win7 64bit

Jimmy,
mit Shellexecute wird Calc auf beiden rechnern ausgeführt. Auf dem XP-Rechner bekommen
ich auch einen nCalcHwnd zurück, unter Windows 7 64-bit aber nicht.
Werde das mal mit Runshell probieren.

Code: Alles auswählen

        RunDefaultShellProg(0,"open",'Calc.exe',,,SW_SHOWNORMAL)

FUNCTION RunDefaultShellProg(Hwnd,cVerb,cFile,cParam,cDir,nShow)
Local  cExe := space(256)
LOCAL nPos, nRet
nPos := rat("\", cFile)
IF nPos > 0
  cDir := substr(cFile, 1, nPos)
  cFile := substr(cFile, nPos+1)
ENDIF
nRet := FindExecutableA(cFile, cDir, @cExe)
IF nRet > 32
   nRet := ShellExecuteA(Hwnd,cVerb,cFile,cParam,cDir,nShow)
ENDIF
RETURN nRet

[Alfred_10]

Moin zusammen.

Kann mir jemand helfen oder hat vielleicht eine fertige Lösung um den Windows Rechner in eine xBase++ App zu integrieren?
Bekomme es nicht zum laufen.

nCalcHwnd := DllCall("User32.dll",DLL_STDCALL,"FindWindowA",0,"Rechner"+Chr(0) )
Funktioniert, hier kommt das Handle zurück. Rechner ist gestartet.

local nCalcHwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA", 0, 0, "SciCalc", "Rechner")
Hier kommt immer nur 0 zurück

local nEdithwnd := DllCall("User32.dll",DLL_STDCALL, "FindWindowExA",nCalcHwnd, 0,"Edit","")
Demzufolge kommt hier auch 0 zurück

Ich teste auf Win 11 Pro.

Grüsse, Alfred