XProfan

Kompilieren Markieren Separieren

Eigentlich sollst Du laut msdn ein Fenster laut einer setForegroundWindow-

Beschreibung nicht selbst in den Vordergrund bringen sondern wohl lediglich die

Titelzeile blinken lassen. (Verhalten von setForegroundWindow wenn Fremdfenster

aktiv ist) Dennoch, so geht es, aber ob es noch einfacher geht bin ich mir nicht sicher:

Herunterladen
externer Download

Das Fenster aus diesem Beispiel kann mit Strg+Alt+a in den Vordergrund gestellt werden.

 {$cleq}
cls
userMessages wm_user+1234
initMyHook()

while 1

    waitInput

    select uMessage

        caseof wm_user+1234

        if (&ulParam==128) and (&uwParam==65)//taste a losgelassen?

            if iskey(17) and iskey(18)//strg+alt?

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

            endif

        endif

    endSelect

wend

nProc initMyHook

    return SetWindowsHookEx(13,procAddr(myLowLevelKeyboardHookProc),getModuleHandle(0),0)/*WH_KEYBOARD_LL*/

endproc

nProc myLowLevelKeyboardHookProc(long code,wp,lp)

    sendMessage(hWnd,wm_user+1234,long(lp,0),long(lp,8))
    return 0

endproc

Damit dieser Quelltext mit XProfan funktioniert, und wenn noch nicht

geschehen, dann musst Du in Deiner IDE xpse ( [...]

) als Kompiler angeben,

da der Quelltext natives Profan enthält.

test.exe	1.375 kB

Hochgeladen:	12.09.2012

Ladeanzahl:
		Herunterladen

12.09.2012 ▲

Michael
Axtmann

Danke! Habe versucht den Code zu compilieren. In XProfan habe ich unter "Optionen"-->"Allgemeine Einstellungen" --> "Compiler" --> fogendes eingegeben: "C:\XProfanX2\xpse.exe". Leider meint Profan dann, Variable nicht deklariert "wm_user".???

12.09.2012 ▲

Grüße!

Dann hast Du vermutlich nicht die Tastenkombination verwendet,

die den Kompiler anwirft - vermutlich hast Du die Taste für den Interpreter verwendet.

Wenn Du nicht zurecht kommst dann einfach nochmal melden.

13.09.2012 ▲

Michael
Axtmann

Nabend,
also Compiler-Taste war die richtige, aber trotzdem bekomm ich's nicht in ein bestehendes Programm integriert...
Wäre eine etwas anfängerfreundlichere Variante denkbar????

Grüße

24.09.2012 ▲

E.T.

... da würde mich doch mal die IDE von Michael interessieren: ich arbeite (immer noch) mit PrFellow, da kommen die Kurz-Tasten mit XPSE auch nicht klar

,
(was aber nicht an XPSE liegt...)

XProfan X2
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Kompilieren Markieren Separieren

Ein ganz klein wenig einfacher gehts noch, weil ich einmal für sowas

die keyboardhook.dll ( [...]

) exportiert hatte:

cls
casenot useDll("ifkhook.dll") : end messagebox("ifkhook.dll konnte nicht geladen werden","fehler",4096)
external("ifkhook.dll","install",%hInstance,%hWnd)
userMessages 4444

while 1

    waitInput

    select %uMessage

        caseof 4444

        if &uwParam=65//taste a

            if iskey(17) and iskey(18)//strg+alt?

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

            endif

        endif

    endSelect

wend

Hat im Vergleich zur vorherigen Variante aber den Nachteil das Du ne DLL

mitschleppen wirst.

Michael
Axtmann

Hi,
genial !!! Danke, die DLL nehm ich doch gern mit

Grüße

Gern geschehen.

Wenn so Themen erledigt sind dann bitte immer als erledigt markieren unten bei den

Themenoptionen denn erledigte Themen erscheinen dann bei Aktuelle-Themen und in

der jeweiligen Forenübersicht in der Rubrik erledigt.