XProfan

Yo habe a esta Características ya seit etlichen Profano-Versionen nichts mehr geändert.

Saludo
Roland

RGH

Also en me (Windows XP Pro en el klassischen Stil) se ejecuta folgendes Programa problemlos:
Kompilieren Marca Separación

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

¡Hola,

Findwindow va en me einwandfrei. Posesiones para Thema aber folgende Cuestión:

Posesiones con Findwindow el Handle el gestarteten 2.Anwendung ermittelt.Aber como bekomme Yo nun hin,dass el Prog welche el 2.Anwendung startete, esta nun minimiert?
sendkey(handle2.anwendung&,??)
Finde hier el Scancode no.Gracias.

Servus
GDL

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

[...]

22.11.2006 ▲

Rolf
Koch

Hi GDL,
meinste algo como?
Kompilieren Marca Separación

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

Yo habe sí nie behauptet, dass lo en euch no va, en me stürzt algo como ständig de.
z.B. ha el ReBar-Demo de Uwe Pascal Niemeier ewig no geklappt, a Yo festgestellt habe, dass el Abstürzer beim
AddWindows liegt.
Gibt lo irgendwelche bekannte Windoofs-Spinnereien/Problemas, welche solche Befehle para Abschmieren verleiten?

Nico Madysa

Auch una Bucle para Aufhalten des Hauptprogammes hilft no en el Modus 2.
En Winexecwait es allerdings.

Como ya he dicho, lo va ahora.Yo quería sólo Roland dies todavía mitteilen.

Servus
Georg

GDL

¡Hola Rolf,

vielen Dank,lo va.Mit lauter Scancode suchen Yo mich en irgendeinen Weg fixiert y otro Sachen nada en Betracht elaborado.
Zum Vorposting nochmals:
Bis XProfan10 Yo lo con
winexec(trafos.exe,2) gelöst.
Dies va aber con XProfan10 komischerweise no mehr.Lo se zwar en el Taskleiste adecuado y beim 3tastengriff auch como Prozess geführt, pero es no Oberfläche disponible.Ein rechtsklick oder doppelklick en el Taskleiste lässt entonces el Programa vollends verschwinden.Anzeigemodus 1 va aber einwandfrei.Como ya he dicho XProfan9 y XProfan8 ir.
Kompilieren Marca Separación

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

Como siempre:
Ein corto lauffähiger Code, en el el problema auftritt, sonst es el sólo pures Rumstochern en el Nebel.

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

Jörg Sellmeyer

Nico Madysa

Como siempre:
Ein corto lauffähiger Code, en el el problema auftritt, sonst es el sólo pures Rumstochern en el Nebel.

@Jörg: esta Tuve [t b] minimalbeispiel [t b] erstellt

Yo glaub el Texto es así erschlagend el se una Nonsourceposter (<-- lol watn Wort) richtig genervt fühlt

[tb]minimalbeispiel[/tb]

¡Hola Nico...

Tal vez paßt [...]

auch a deinem Problema???

Saludo

Andreas

24.11.2006 ▲

Nico
Madysa

Nee, a Casa tener Yo sí gar kein Internet.

OK, folgender Code stürzt en
Kompilieren Marca Separación

AddWindows

de (mittels Trace-Modus ermittelt):
Kompilieren Marca Separación

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 en me funzt Su Code - hier el Ablaufplan:
Kompilieren Marca Separación

 $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 ▲