Pytanie : Dostawać aktualny aktywny podaniowy imię

I chcieć zastosowanie jaki oprogramowanie używać i dla jak długo na machine.

I zamierzać każdy pięć minuta imię the obecnie - aktywny program

How I dostawać the imię the program?

Thanks

Steve

Odpowiedź : Dostawać aktualny aktywny podaniowy imię

Ty móc:
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

Społeczeństwo Klasowy Form1

    Intymny WithEvents tmr Jako Nowy System.Windows.Forms.Timer
    Intymny Oznajmiać Auto Funkcja GetForegroundWindow Wyzwolenie "user32.dll" () Jako IntPtr

    Intymny Okręt podwodny Form1_Load (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się MyBase.Load
        tmr. Interwał = TimeSpan.FromMinutes (5).TotalMilliseconds
        tmr. Zaczynać ()
    Kończyć Okręt podwodny

    Intymny Okręt podwodny tmr_Tick_1 (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się tmr. Cwelich
        Ciemnawy foreWnd Jako IntPtr = GetForegroundWindow
        Dla Process.GetProcesses P Proces W Process.GetProcesses
            Jeżeli P.MainWindowHandle.Equals (foreWnd) Wtedy
                Debug.Print ("Aktualny Czas: " & DateTime.Now)
                Debug.Print ("Proces Imię: " & P.ProcessName)
                Debug.Print ("Proces Tytuł: " & P.MainWindowTitle)
                Debug.Print ("-----------------------------------------------------------")
                Wyjście Dla
            Kończyć Jeżeli
        Następnie
    Końcówka Okręt podwodny

Końcówka Klasa
Inne rozwiązania  
 
programming4us programming4us