XProfan

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

Was genau?

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

AndreasS

Guten Morgen,
Während der Programmlaufzeit soll es nicht möglich sein das Startmenü von Windows aufzurufen. Weder mit der Maus noch über die sogenannte Wintaste der Tastatur. Wird das Programm beendet soll natürlich wieder alles "normal" laufen. Das gleiche soll natürlich auch mit der Menüseite geschehen die beim drücken der Tastenkombi STRG-ALT-ENTF geöffnet wird. Ein Abfangen der Tasten ist kaum sinnvoll, da dies zu viel Prozessorleistung verschlingt.
Mit der User32 müßte es gehen, doch ich finde die Befehle nicht.

Bis dann
Andreas

XProfan 11

Kompilieren Markieren Separieren

Thomas
Freier

So etwas?

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 Danke. Aber dies läßt auch nur die Taskbar verschwinden. Das Startmenü ist immer noch erreichbar.

XProfan 11

Kompilieren Markieren Separieren

Thomas
Freier

Liegt wohl am BS. Bei mir ist 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)
Declare p.pdfc&
UsePen 0, 1, @RGB(0, 0, 255)
Line 0,60-%maxx,60
Arc %maxy+380,0 - 0,%maxx;800,%maxx; %maxy-100,0
TextColor RGB(0, 0, 255),-1
UseFont "Arioso",60,0,0,0,0
DrawText %maxx-300,0,"Mein Fester"

While 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 geht noch, aber die Auswahl kommt nicht in den Vordergrund.

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

Ich vermute mal, das muss in der Registry verändert werden. Den Eintrag kenne ich leider nicht. Aber Google sollte helfen. Vielleicht kannst du auch was im RegistrySystemWizard dazu finden.

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