Hide Focus Window

[Nytro]

Inca o porcarie pe care am descoperito in timp ce ma jcam cu API-urile

Vom avea nevoie de 2 APIuri :

Private Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Long

Si de un Timer la Interval 1 .

Private Sub Timer1_Timer()

Dim x

x = GetForegroundWindow() ' x va fi handlerul ferestrei care detine focusul

ShowWindow x, 0 ' Folosim APIul ShowWindow pentru a ascunde fereastra

End Sub

Rulati si dati click pe o fereastra

[ÐÒ&]

interesant..bravo..ai descoperit ceva util

[Nytro]

Ms . Se pot face mai multe pornind de la asta , de exemplu in loc de hide , ar merge close ... poate in loc de foreground windows un findwindow ... Trebuie decat sa ai imaginatie

[vladiii]

Felicitari, ai descoperit un API !

Btw, o chestie muuult mai interesanta ca asta, gasiti aici: http://rstcenter.com/forum/title-class-finder-t9858.rst ! Initial, poate nu va dati seama la ce e utila, dar, gasind acele handle'urile, le puteti ascunde [ferestrele] ca in exemplul lui Nytro. Sau, mai mult, gasiti IDurile proceselor si le inchideti [nu pe toate, dar mare parte].

Bafta !