XProfan

Ich habe an diesen Funktionen schon seit etlichen Profan-Versionen nichts mehr geändert.

Saluto
Roland

RGH

Also bei mir (Windows XP Pro im klassischen Stil) corre folgendes Programm problemlos:
Kompilieren Markieren Separieren

cls
print gettext$(findWindow(X))
clearlist
addwindows
print listbox$(Fensterliste, 1)
waitinpu

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

21.11.2006 ▲

GDL

Ciao,

Findwindow geht bei mir einwandfrei. Habe zum Thema aber folgende Frage:

Habe mit Findwindow das Handle der gestarteten 2.Anwendung ermittelt.Aber wie bekomme ich es nun hin,dass das Prog welche die 2.Anwendung startete, diese nun minimiert?
sendkey(handle2.anwendung&,??)
Finde hier den Scancode nicht.Danke.

Servus
GDL

Windows7 Xprofan 8,9,10 [...]

[...]

22.11.2006 ▲

Rolf
Koch

Hi GDL,
meinste sowas?
Kompilieren Markieren Separieren

declare finde&,showstat&
cls
shell Notepad.exe
finde&=Findwindow(Unbenannt - Editor)

if finde& > 0

    showstat&=showwindow(finde&,6)
    Print Notepad ist klein - Taste drücken

else

    Print Nix zum Verkleinern da :( - Taste drücken

endif

waitinput

if showstat&=1

    showstat&=showwindow(finde&,1)
    Print Notepad hat wieder Lust - Taste zum Beenden

else

    Print Was soll ich denn Vergrössern, Sie Schelm :)?

endif

waitinput

22.11.2006 ▲

Nico
Madysa

Ich habe ja nie behauptet, dass es bei euch nicht geht, bei mir stürzt sowas ständig ab.
z.B. hat die ReBar-Demo von Uwe Pascal Niemeier ewig nicht geklappt, bis ich festgestellt habe, dass der Abstürzer beim
AddWindows liegt.
Gibt es irgendwelche bekannte Windoofs-Spinnereien/Probleme, welche solche Befehle zum Abschmieren verleiten?

Nico Madysa

Auch eine Schleife zum Aufhalten des Hauptprogammes hilft nicht im Modus 2.
Bei Winexecwait geht es allerdings.

Wie gesagt, es geht jetzt.Ich wollte nur Roland dies noch mitteilen.

Servus
Georg

GDL

Hallo Rolf,

vielen Dank,es geht.Mit lauter Scancode suchen habe ich mich auf irgendeinen Weg fixiert und andere Sachen gar nicht in Betracht gezogen.
Zum Vorposting nochmals:
Bis XProfan10 habe ich es mit
winexec(trafos.exe,2) gelöst.
Dies geht aber mit XProfan10 komischerweise nicht mehr.Es wird zwar in der Taskleiste angezeigt und beim 3tastengriff auch als Prozess geführt, aber es ist keine Oberfläche vorhanden.Ein rechtsklick oder doppelklick in der Taskleiste lässt dann das Programm vollends verschwinden.Anzeigemodus 1 geht aber einwandfrei.Wie gesagt XProfan9 und XProfan8 gehen.
Kompilieren Markieren Separieren

clear fehler1%
name$=astart$+trafos.exe
fehler1%=winexec(name$,1)     Modus 2 geht nicht
clear num%

while num% =0

    num%=@FindWindow(Trafopanel)

/a>

Windows7 Xprofan 8,9,10 [...]

[...]

Jörg
Sellmeyer

Nico Madysa

Wie immer:
Ein kurzer lauffähiger Code, bei dem das Problem auftritt, sonst ist das nur pures Rumstochern im Nebel.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Jörg Sellmeyer

Nico Madysa

Wie immer:
Ein kurzer lauffähiger Code, bei dem das Problem auftritt, sonst ist das nur pures Rumstochern im Nebel.

@Jörg: hierfür hatte ich [t b] minimalbeispiel [t b] erstellt

Ich glaub der Text ist so erschlagend das sich ein Nonsourceposter (<-- lol watn Wort) richtig genervt fühlt

[tb]minimalbeispiel[/tb]

Hallo Nico...

Vielleicht paßt [...]

auch zu deinem Problem???

Saluto

Andreas

24.11.2006 ▲

Nico
Madysa

Nee, zu Hause hab ich ja gar kein Internet.

OK, folgender Code stürzt bei
Kompilieren Markieren Separieren

AddWindows

ab (mittels Trace-Modus ermittelt):
Kompilieren Markieren Separieren

window 50,50-700,500
declare ReBar&,ReBar#,Lb1&,Lb2&,Lb3&,a#
dim a#,16
Lb1&=create(listbox,%hwnd,,0,0,0,0)
Lb2&=create(listbox,%hwnd,,0,0,0,0)
Lb3&=create(listbox,%hwnd,,0,0,0,0)
clearlist
addwindows
movelisttolist(Lb1&)
clearlist
addfonts
movelisttolist(Lb2&)
clearlist
addfiles *.*
movelisttolist(Lb3&)
clear a#
long a#,0=8
long a#,4=$FFFF---Alles initialisieren
external(comctl32.dll,InitCommonControlsEx,a#)
--Stil: $50000000 | ~CCS_NORESIZE | ~RBS_FIXEDORDER
ReBar&=Control(ReBarWindow32,,$50000804 ,10,10,600,400,%hwnd,1,0)
struct ReBar=Size&,Mask&,Style&,clrFore&,clrBack&,lpText&,cch&,iImage&,hwndChild&,
cxMinChild&,cyMinChild&,cx&,hbmBack&,wID&,cyChild&,cyMaxChild&,cyIntegral&,
cxIdeal&,lParam&,cxHeader&
dim ReBar#,ReBar--REBARBANDINFO
clear ReBar#

with ReBar#

    .Size&=sizeof(ReBar#)
    .Mask&=$71------RBBIM_STYLE | RBBIM_CHILD | RBBIM_CHILDSIZE | RBBIM_SIZE
    .cyMaxChild&=1--Darf nicht Null sein
    .Style&=256------------------------RBBS_NOGRIPPER (1. Band ohne Griff)
    .cxMinChild&=5---------------------Minimum Breite
    .cyMinChild&=height(ReBar&)--------Höhe des Bandes
    .cx&=100---------------------------Vorgabe Breite
    .hwndChild&=Lb1&-------------------Band 1
    sendmessage(ReBar&,1025,0,ReBar#)--RB_INSERTBAND
    .Style&=128------------------------RBBS_GRIPPERALWAYS (folgende Bänder mit Griff)
    .cxMinChild&=50--------------------Minimum Breite
    .cyMinChild&=200-------------------Höhe des Bandes
    .cx&=300---------------------------Vorgabe Breite
    .hwndChild&=Lb2&-------------------Band 2
    sendmessage(ReBar&,1025,1,ReBar#)--RB_INSERTBAND
    .cxMinChild&=10--------------------Minimum Breite
    .cyMinChild&=300-------------------Höhe des Bandes
    .hwndChild&=Lb3&-------------------Band 3
    sendmessage(ReBar&,1025,2,ReBar#)--RB_INSERTBAND

endwith

while 1

    waitinput

    if sendmessage(ReBar&,1051,0,0) > height(ReBar&)--1051 = RB_GETBARHEIGHT

        clear a#--Umklappen rückgängig, falls Gripper nach unten gezogen wurde
        sendmessage(ReBar&,1047,0,a#)--RB_SIZETORECT

    endif

./../function-references/xprofan/endwhile/'>endwhile

Nico Madysa

24.11.2006 ▲

Also bei mir funzt Dein Code - hier der Ablaufplan:
Kompilieren Markieren Separieren

 $DEFINE XPSE
WINDOW 50,50-700,500
DIM A#,16
LB1&=CREATE(*listbox*,%HWND,**,0,0,0,0)
LB2&=CREATE(*listbox*,%HWND,**,0,0,0,0)
LB3&=CREATE(*listbox*,%HWND,**,0,0,0,0)
CLEARLIST
ADDWINDOWS **
MOVELISTTOLIST(LB1&)
CLEARLIST
ADDFONTS
MOVELISTTOLIST(LB2&)
CLEARLIST
ADDFILES **.**
MOVELISTTOLIST(LB3&)
CLEAR A#
LONG A#,0=8
LONG A#,4=$FFFF
EXTERNAL(*comctl32.dll*,*InitCommonControlsEx*,A#)
REBAR&=CONTROL(*ReBarWindow32*,**,$50000804 ,10,10,600,400,%HWND,1,0)
struct REBAR=SIZE&,MASK&,STYLE&,CLRFORE&,CLRBACK&,LPTEXT&,CCH&,IIMAGE&,HWNDCHILD&,CXMINCHILD&,CYMINCHILD&,CX&,HBMBACK&,WID&,CYCHILD&,CYMAXCHILD&,CYINTEGRAL&,CXIDEAL&,LPARAM&,CXHEADER&
DIM REBAR#,REBAR
CLEAR REBAR#

WITH REBAR#

    .SIZE&=SIZEOF(REBAR#)
    .MASK&=$71
    .CYMAXCHILD&=1
    .STYLE&=256
    .CXMINCHILD&=5
    .CYMINCHILD&=HEIGHT(REBAR&)
    .CX&=100
    .HWNDCHILD&=LB1&
    SENDMESSAGE(REBAR&,1025,0,REBAR#)
    .STYLE&=128
    .CXMINCHILD&=50
    .CYMINCHILD&=200
    .CX&=300
    .HWNDCHILD&=LB2&
    SENDMESSAGE(REBAR&,1025,1,REBAR#)
    .CXMINCHILD&=10
    .CYMINCHILD&=300
    .HWNDCHILD&=LB3&
    SENDMESSAGE(REBAR&,1025,2,REBAR#)

ENDWITH

WHILE { WHILE 1 }/* LINE:51 ont>

WAITINPUT

24.11.2006 ▲