XProfan

Deutsch

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Eine kleine Prozedur um das XProfan-Fenster sicher in den Vordergrund zu bringen.
Kompilieren Markieren Separieren

Proc SetForegroundWindowEx

    PARAMETERS wnd&
    Var lThreadWindow&  = External("User32.dll","GetWindowThreadProcessId",wnd&,0)
    Var lThreadForeWin& = External("User32.dll","GetWindowThreadProcessId",External("User32.dll","GetForegroundWindow"), 0)

    If lThreadWindow& = lThreadForeWin&

        External("User32.dll","SetForegroundWindow",wnd&)

    Else

        External("User32.dll","AttachThreadInput",lThreadForeWin&,lThreadWindow&,1)
        External("User32.dll","SetForegroundWindow",wnd&)
        External("User32.dll","AttachThreadInput",lThreadForeWin&,lThreadWindow&,0)

    EndIf

EndProc

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

13.11.2012 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

[OFFTOPIC]verschoben nach Quelltexte[/OFFTOPIC]

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

13.11.2012 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Macht:
Kompilieren Markieren Separieren

setWindowPos hwnd=%winleft,%wintop - (%winright-%winleft),(%winbottom-%wintop);-1
setWindowPos hwnd=%winleft,%wintop - (%winright-%winleft),(%winbottom-%wintop);-2

vom Ergebnis her nicht das Selbe?

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

13.11.2012 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Kann schon sein, es geht hier aber darum das Fenster sicher mit SetForegroundWindow in den Vordergrund zu bringen wenn gerade ein anderes Programm bzw. Fenster den Focus hat.