XProfan

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

Was genau?

[OFFTOPIC]Verschoben después de XProfan-Foro.[/OFFTOPIC]

AndreasS

Bueno Morgen,
Während el Programmlaufzeit se no posible ser el Startmenü de Windows aufzurufen. Weder con ratón todavía en sogenannte Wintaste el Tastatur. Wird el Programa final se natürlich otra vez alles "normal" laufen. Das gleiche se natürlich auch con el Menüseite geschehen cuando el drücken el Tastenkombi STRG-ALT-ENTF geöffnet se. Ein Abfangen el Tasten es kaum sinnvoll, como dies a viel Prozessorleistung verschlingt.
Mit el User32 müßte lo ir, doch Yo finde el Befehle no.

Bis entonces
Andreas

XProfan 11

Kompilieren Marca Separación

Thomas
Freier

So algo?

DEF SetWindowPos(7) !"USER32","SetWindowPos"
Def AFindWindow(2) ! "USER32","FindWindowA"
cls
waitinput
var hWnd& = AFindWindow("Shell_TrayWnd", "")
SetWindowPos(hWnd&, 0, 0, 0, 0, 0, 128)
waitinput
hWnd& = AFindWindow("Shell_TrayWnd", "")
SetWindowPos(hWnd&, 0, 0, 0, 0, 0, 64)
waitinput
End

Gruß Thomas
Windows XP SP2, XProfan X2

AndreasS

Erstmal Gracias. Aber dies läßt auch sólo el Taskbar verschwinden. Das Startmenü es siempre todavía erreichbar.

XProfan 11

Kompilieren Marca Separación

Thomas
Freier

Liegt wohl al BS. En me es nichts weiteres erreichbar.

DEF SetWindowPos(7) !"USER32","SetWindowPos"
Def AFindWindow(2) ! "USER32","FindWindowA"
var hWnd& = AFindWindow("Shell_TrayWnd", "")
Windowstyle 82
window 0,0-0,0
cls
var font&=CreateFont("Verdana",12,0,0,0,0)
SetDialogFont font&
var ende%=CreateButton(%hwnd,"Schließen",%maxx-140,80,100,20)
SetWindowPos %hwnd=0,0-%maxx,%maxy;-1
SetWindowPos(hWnd&, 0, 0, 0, 0, 0, 128)
Declarar p.pdfc&
USEP 0, 1, @RGB(0, 0, 255)
Line 0,60-%maxx,60
Arc %maxy+380,0 - 0,%maxx;800,%maxx; %maxy-100,0
Color del texto RGB(0, 0, 255),-1
UseFont "Arioso",60,0,0,0,0
DrawText %maxx-300,0,"Mein Fester"

Mientras que 1

    GetMessage
    p.pdfc& = @findwindow("Windows Task-Manager")
    '@SendMessage(p.pdfc&,$0018,0,1) 'minimieren

    if getfocus(Ende%)

        SetWindowPos(hWnd&, 0, 0, 0, 0, 0, 64)
        BREAK

    EndIf

    @SendMessage(p.pdfc&,16,0,0)'schliessen 16

EndWhile

DeleteObject font&
end

Alt + TAB va todavía, aber el Auswahl kommt no en el Vordergrund.

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

Yo vermute veces, el muss en el Registry verändert voluntad. Den Eintrag saber Yo por desgracia, no. Aber Google debería helfen. Tal vez kannst du auch qué en el RegistrySystemWizard dazu encontrar.

XProfan X2
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2