| |
|
|
AndreasS | Die Taskbar auszuschalten bereitet keine Probleme, aber wie funktioniert das mit dem Startmenü ? Hat da jemand ne Idee ?
By Andreas |
|
|
| |
|
|
|
| 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 |
|
|
| |
|
|
|
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
|
|
|
| |
|
|
|
AndreasS | Erstmal Danke. Aber dies läßt auch nur die Taskbar verschwinden. Das Startmenü ist immer noch erreichbar. |
|
|
| |
|
|
|
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. |
|
|
| |
|
|
|
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 X2Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 29.11.2011 ▲ |
|
|
|