Windows Rechner (Calc)
Moderator: Moderatoren
- Koverhage
- Der Entwickler von "Deep Thought"
- Beiträge: 2478
- Registriert: Fr, 23. Dez 2005 8:00
- Wohnort: Aalen
- Hat sich bedankt: 109 Mal
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Windows Rechner (Calc)
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
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
Gruß
Klaus
Klaus
- AUGE_OHR
- Marvin
- Beiträge: 12943
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 20 Mal
- Danksagung erhalten: 48 Mal
Re: Windows Rechner (Calc)
ich habe mal das daraus gemachtKoverhage hat geschrieben: 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)
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),"")
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),"")
gruss by OHR
Jimmy
Jimmy
-
- Rekursionen-Architekt
- Beiträge: 315
- Registriert: Mo, 16. Okt 2006 13:04
- Wohnort: Region Stuttgart
Re: Windows Rechner (Calc)
Hallo,
@Jimmy,
@Klaus,
du kannst die Abfrage in eine Schleife verpacken, die solange läuft, bis Calc beendet wird.
Gruß,
Günter
@Jimmy,
nLength darf nicht by reference übergeben werden.Code: Alles auswählen
SendMessageA(nEdithwnd, WM_GETTEXT, @nLength, @cText)
@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
- Der Entwickler von "Deep Thought"
- Beiträge: 2478
- Registriert: Fr, 23. Dez 2005 8:00
- Wohnort: Aalen
- Hat sich bedankt: 109 Mal
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Re: Windows Rechner (Calc)
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
super Danke.
Dann kann ich doch wenn nEdithwnd = 0 ist, den Rechner mit ShellExecuteA aufrufen
verarbeit ShellExexuteA die folgende Angabe ?
%windir%\system32\calc.exe
Gruß
Klaus
Klaus
-
- Rekursionen-Architekt
- Beiträge: 315
- Registriert: Mo, 16. Okt 2006 13:04
- Wohnort: Region Stuttgart
Re: Windows Rechner (Calc)
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
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
- Der Entwickler von "Deep Thought"
- Beiträge: 2478
- Registriert: Fr, 23. Dez 2005 8:00
- Wohnort: Aalen
- Hat sich bedankt: 109 Mal
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Re: Windows Rechner (Calc)
Hallo Günter,
habe das jetzt so, bekomme aber leider kein Ergebnis.
Gruß
Klaus
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
Gruß
Klaus
Klaus
-
- Rekursionen-Architekt
- Beiträge: 315
- Registriert: Mo, 16. Okt 2006 13:04
- Wohnort: Region Stuttgart
Re: Windows Rechner (Calc)
Hallo Klaus,
Das folgende funktioniert hier nämlich.
Gruß,
Günter
Hmm. Wie sind SHELL_OPEN und SW_SHOW definiert, und wie sieht der Code von ShellExecute() aus?Code: Alles auswählen
IF ShellExecute(NIL, SHELL_OPEN, cProgPath,,,SW_SHOW)
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
- Der Entwickler von "Deep Thought"
- Beiträge: 2478
- Registriert: Fr, 23. Dez 2005 8:00
- Wohnort: Aalen
- Hat sich bedankt: 109 Mal
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Re: Windows Rechner (Calc)
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
#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
Gruß
Klaus
Klaus
-
- Rekursionen-Architekt
- Beiträge: 315
- Registriert: Mo, 16. Okt 2006 13:04
- Wohnort: Region Stuttgart
Re: Windows Rechner (Calc)
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
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
- Der Entwickler von "Deep Thought"
- Beiträge: 2478
- Registriert: Fr, 23. Dez 2005 8:00
- Wohnort: Aalen
- Hat sich bedankt: 109 Mal
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Re: Windows Rechner (Calc)
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.
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.
Gruß
Klaus
Klaus
- AUGE_OHR
- Marvin
- Beiträge: 12943
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 20 Mal
- Danksagung erhalten: 48 Mal
Re: Windows Rechner (Calc)
hm ... bei mir klappt es sehr schön.Koverhage hat geschrieben: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.
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
gruss by OHR
Jimmy
Jimmy
- Koverhage
- Der Entwickler von "Deep Thought"
- Beiträge: 2478
- Registriert: Fr, 23. Dez 2005 8:00
- Wohnort: Aalen
- Hat sich bedankt: 109 Mal
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Re: Windows Rechner (Calc)
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 ?
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" )
// Prfen ob nEdithwnd ein gltiges 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
Gruß
Klaus
Klaus
- AUGE_OHR
- Marvin
- Beiträge: 12943
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 20 Mal
- Danksagung erhalten: 48 Mal
Re: Windows Rechner (Calc)
also in der Zeile ist NIL verkehrt. es müsste (,SHELL_OPEN ...) sein ?!Koverhage hat geschrieben:Code: Alles auswählen
IF ShellExecute(NIL, SHELL_OPEN, cProgPath,,,SW_SHOW)
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 verknpfte Anwendung
// Falls ShowOpenWithDialog = True, wird der Dialog
// "™ffnen mit" fr 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 zurckgeben
Retvar := .F.
ENDCASE
Code: Alles auswählen
IF .NOT. nCalcHwnd > 0
RunShell( "","CALC.EXE", .T.)
RETURN
ENDIF
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
gruss by OHR
Jimmy
Jimmy
- Koverhage
- Der Entwickler von "Deep Thought"
- Beiträge: 2478
- Registriert: Fr, 23. Dez 2005 8:00
- Wohnort: Aalen
- Hat sich bedankt: 109 Mal
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Re: Windows Rechner (Calc)
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.
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.
Gruß
Klaus
Klaus
- Koverhage
- Der Entwickler von "Deep Thought"
- Beiträge: 2478
- Registriert: Fr, 23. Dez 2005 8:00
- Wohnort: Aalen
- Hat sich bedankt: 109 Mal
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Re: Windows Rechner (Calc)
Auch mit RunShell läuft es unter Windows 7 64-bit nicht (bei mir)
Unter Windows XP läuft alles TOP.
Unter Windows XP läuft alles TOP.
Gruß
Klaus
Klaus
- urbi
- Rekursionen-Architekt
- Beiträge: 142
- Registriert: So, 26. Mär 2006 18:47
- Wohnort: 76185 Karlsruhe
- Kontaktdaten:
Re: Windows Rechner (Calc)
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
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
urbi
- Herbert
- Der Entwickler von "Deep Thought"
- Beiträge: 1991
- Registriert: Do, 14. Aug 2008 0:22
- Wohnort: Gmunden am Traunsee, Österreich
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Re: Windows Rechner (Calc)
Ich habe auch einen ganz einfachen Rechner geschrieben. Als Idee zum Verbessern.
'!' setzt die im SLE sichtbare Zahl in die Zwischenablage.
'!' setzt die im SLE sichtbare Zahl in die Zwischenablage.
- Dateianhänge
-
- Rechner
- calchs.jpg (17.72 KiB) 13366 mal betrachtet
Grüsse Herbert
Immer in Bewegung...
Immer in Bewegung...
- Koverhage
- Der Entwickler von "Deep Thought"
- Beiträge: 2478
- Registriert: Fr, 23. Dez 2005 8:00
- Wohnort: Aalen
- Hat sich bedankt: 109 Mal
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Re: Windows Rechner (Calc)
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.
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.
Gruß
Klaus
Klaus
- AUGE_OHR
- Marvin
- Beiträge: 12943
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 20 Mal
- Danksagung erhalten: 48 Mal
Re: Windows Rechner (Calc)
@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"
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"
gruss by OHR
Jimmy
Jimmy
- Herbert
- Der Entwickler von "Deep Thought"
- Beiträge: 1991
- Registriert: Do, 14. Aug 2008 0:22
- Wohnort: Gmunden am Traunsee, Österreich
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Re: Windows Rechner (Calc)
Noch ein Nachtrag:
Läuft doch unter Win7 64bit
Läuft doch unter Win7 64bit
Koverhage hat geschrieben: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
Grüsse Herbert
Immer in Bewegung...
Immer in Bewegung...
Re: Windows Rechner (Calc)
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
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