XProfan

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

quoi oui c'est ca?

[OFFTOPIC]Verschoben pour XProfan-Forum.[/OFFTOPIC]

AndreasS

Guten demain,
Au cours de qui Programmlaufzeit soll es pas possible son cela Startmenü de Windows aufzurufen. Weder avec qui souris encore sur qui sogenannte Wintaste qui clavier. Wird cela Programme finissez soll naturellement wieder alles "normal" courir. cela gleiche soll naturellement aussi avec qui Menüseite geschehen qui beim drücken qui Tastenkombi STRG-ALT-ENTF ouvert wird. un intercepter qui Tasten ist à peine sinnvoll, là ca trop viel Prozessorleistung verschlingt.
avec qui User32 devrait es aller, doch je trouve qui Befehle pas.

jusqu'à ensuite
Andreas

XProfan 11

Kompilieren Marque Séparation

Thomas
Freier

So quelque chose?

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
Fin

Gruß Thomas
Windows XP SP2, XProfan X2

AndreasS

Erstmal merci. mais ca läßt aussi seulement qui Taskbar verschwinden. cela Startmenü ist toujours erreichbar.

XProfan 11

Kompilieren Marque Séparation

Thomas
Freier

Liegt wohl am BS. chez mir ist rien 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)
Déclarer 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
Couleur du texte RGB(0, 0, 255),-1
UseFont "Arioso",60,0,0,0,0
DrawText %maxx-300,0,"Mein Fester"

Tandis que 1

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

    si getfocus(Ende%)

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

    EndIf

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

Endwhile

DeleteObject font&
end

vieux + TAB allez encore, mais qui sélection venez pas dans den Vordergrund.

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

je vermute la fois, cela muss dans qui Registry modifié volonté. Den Eintrag kenne je malheureusement pas. mais Google sollte aider. peut-être peux du aussi quoi im RegistrySystemWizard en supplément trouver.

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