XProfan

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

What exactly?

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

AndreasS

good tommorrow,
During the Programmlaufzeit should not possible his the Startmenü Windows aufzurufen. Weder with the mouse yet over The so-called Wintaste the keyboard. becomes the program exits should naturally again everything "normal" walk. the same should naturally too with the Menüseite happen The at pressing the Tastenkombi STRG-ALT-ENTF opened becomes. One intercepting the Keys is hardly meaningfully, there this To plenty Processor performance verschlingt.
with the User32 should it weg, still I find The command not.

To then
Andreas

XProfan 11

Thomas
Freier

such a thing?

Compile Mark Separation

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 thanks. but this can too only The Taskbar vanish. the Startmenü is still accessible.

XProfan 11

Thomas
Freier

lying well on the BS. by me is nothing further accessible.

Compile Mark Separation

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 end%=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&
USEP 0, 1, @RGB(0, 0, 255)
Line 0,60-%maxx,60
Arc %maxy+380,0 - 0,%maxx;800,%maxx; %maxy-100,0
Text Color 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) 'minimize

    if getfocus(end%)

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

    EndIf

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

EndWhile

DeleteObject font&
end

old + TAB goes yet, but the selection comes not whom Vordergrund.

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

I suspect time, the must in the Registry changed go. whom entry know I unfortunately not. but Date ought to help. Perhaps can you too what in the RegistrySystemWizard moreover find.

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