XProfan

j'ai à cette Funktionen déjà depuis etlichen Profan-Versionen rien plus geändert.

Salut
Roland

RGH

alors chez mir (Windows XP Pro im klassischen Stil) fonctionne folgendes Programme problemlos:
Kompilieren Marque Séparation

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

Salut,

Findwindow allez chez mir einwandfrei. Habe zum Thema mais folgende Frage:

Habe avec Findwindow cela Handle qui gestarteten 2.Anwendung ermittelt.mais comment bekomme je es eh bien hin,dass cela Prog quelle qui 2.Anwendung startete, cet eh bien minimiert?
sendkey(handle2.anwendung&,??)
Finde ici den Scancode pas.merci.

salut
GDL

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

[...]

22.11.2006 ▲

Rolf
Koch

Hi GDL,
meinste quelque chose comme?
Kompilieren Marque Séparation

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

j'ai oui nie behauptet, dass es chez euch pas allez, chez mir stürzt quelque chose comme ständig ab.
z.B. hat qui ReBar-Demo de Uwe Pascal Niemeier ewig pas geklappt, jusqu'à je festgestellt habe, dass qui Abstürzer beim
AddWindows liegt.
Gibt es irgendwelche bekannte Windoofs-Spinnereien/Probleme, quelle solche Befehle zum Abschmieren verleiten?

Nico Madysa

aussi une Boucle zum Aufhalten des Hauptprogammes hilft pas im Modus 2.
chez Winexecwait ca va allerdings.

Comme je le disais, und dir maintenant.je voulais seulement Roland ca encore mitteilen.

salut
Georg

GDL

allô Rolf,

vielen Dank,und dir.avec lauter Scancode chercher habe je mich sur irgendeinen Weg fixiert et autre Sachen gar pas dans Betracht gezogen.
Zum Vorposting nochmals:
jusqu'à XProfan10 habe je es avec
winexec(trafos.exe,2) gelöst.
ca allez mais avec XProfan10 komischerweise pas plus.Es wird zwar dans qui Taskleiste angezeigt et beim 3tastengriff aussi comme Prozess geführt, mais c'est aucun surface vorhanden.un rechtsklick ou bien doppelklick dans qui Taskleiste peut ensuite cela Programme vollends verschwinden.Anzeigemodus 1 allez mais einwandfrei.Comme je le disais XProfan9 et XProfan8 aller.
Kompilieren Marque Séparation

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

comment toujours:
un court lauffähiger Code, chez dem cela Problem auftritt, sonst ist cela seulement pures Rumstochern im le brouillard.

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

Jörg Sellmeyer

Nico Madysa

comment toujours:
un court lauffähiger Code, chez dem cela Problem auftritt, sonst ist cela seulement pures Rumstochern im le brouillard.

@Jörg: hierfür J'ai eu [t b] minimalbeispiel [t b] erstellt

je glaub qui Text est erschlagend cela sich un Nonsourceposter (<-- lol watn Wort) richtig genervt fühlt

[tb]minimalbeispiel[/tb]

allô Nico...

peut-être paßt [...]

aussi trop deinem Problem???

Salut

Andreas

24.11.2006 ▲

Nico
Madysa

Nee, trop Hause hab je oui gar ne...aucune Internet.

OK, suivant Code stürzt chez
Kompilieren Marque Séparation

AddWindows

ab (mittels Trace-Modus ermittelt):
Kompilieren Marque Séparation

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 ▲

alors chez mir funzt Dein Code - ici qui Ablaufplan:
Kompilieren Marque Séparation

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