focus ???

Du kan bruge API-kaldet GetForegroundWindow. Jeg formoder du er fortrolig med API, når du er ved at lave et program som det du beskriver.

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

Det returnerer et handle til det program der har fokus ved succes, og null ved fejl.

MVH tjacob

Hvad så, Simon?

hvordan kalder man functionen ?

For at kunne bruge det til noget, skal du jo bruge andre API-kald til at få navnet osv. (de samme funktioner du bruger til at hente oplysninger om de kørende programmer). Men måden du gør det på:

Kode linien i svaret indsættes i et modul

Hvorsomhelst kan du nu bruge funktionen (f.eks. i en knap):

Dim a
a = GetForegroundWindow

Dette kan du så bruge videre sammen med andre API-kald som GetDC (henter DeviceContext) GetWindowsTextLentgh (henter længden af vinduets titel som skal bruges i:) GetWindowsText (henter vinduets titel) osv

MVH tjacob

jeg ser lige på det ...