home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1997 October / PCA1097A.ISO / menue / brett / 97100640.txt < prev    next >
Text File  |  1997-08-28  |  1KB  |  40 lines
  1. 0
  2. Eine Anwendung aktivieren...
  3. ThE WIZARD
  4. PROGRAMMIEREN
  5.  
  6.  
  7. '***********************************************
  8. 'Deklaration der API-Funktionenen
  9. '***********************************************
  10.  
  11. Declare Function FindWindow Lib "user32" Alias_
  12. "FindWindowA" (ByVal KlassenName As Any, ByVal_
  13. FensterTitel As Any) As Long
  14.  
  15. Declare Function ShowWindow Lib "user32"_
  16. (ByVal FensterNummer As Long, ByVal_
  17. FensterModus As Long) As Long
  18.  
  19.  
  20. '************************************************
  21. 'Eine Anwendung aktivieren, falls sie lΣuft, 
  22. 'oder starten, falls sie nicht lΣuft
  23. '************************************************
  24.  
  25. Sub AktivierenOderStarten()
  26.     Dim FnWert As Long
  27.     Dim FensterNummer As Long
  28.     
  29.     FensterNummer = FindWindow(0&, "Rechner")
  30.     If FensterNummer > 0 Then
  31.        FnWert = ShowWindow(FensterNummer, 1)
  32.        MsgBox "Rechner in Normalgr÷▀e aktiviert."
  33.     Else
  34.        FnWert = Shell("calc.exe", 1)
  35.        MsgBox "Rechner in Normalgr÷▀e gestartet."
  36.     End If
  37. End Sub
  38.  
  39.  
  40.