kostenloser Webspace werbefrei: lima-city

prüfen ob anwenung noch läuft?!

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   freewareecke

   

   freewareecke hat kostenlosen Webspace.

   16:26, 19.8.2006

   Hey leute ich suche etwas womit ich ?berpr?fen kann ob eine anwendung in dem fall Ms outlook l?uft und mir als antwort dann ein true or false zur?ckgibt. und wenn wir grade so dabei sind vielleicht gibt es auch ne m?glichekt andere anwedungen zu ?berpr?fen ob diese laufen.
   
   
   MfG
   
   freewareecke

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. burgi

   Co-Admin

   burgi hat kostenlosen Webspace.

   19:39, 19.8.2006

   Also bei Outlook sollte es funktionieren, einfach zu versuchen mit GetActiveOLEObject zu ?berpr?fen, ob Outlook.Application einen Handle zur?ck liefert. Wenn ja, dann l?uft's, wenn eine Exception geraist wird, dann nicht. Frag mich bitte aber nicht, wie die genauen Befehle in VB hei?en, arbeite n?mlich mit Delphi.
   
   F?r beliebige Programme w?rde ich folgenderma?en vorgehen: Nimm einen Teil des Textes der Titelleiste. Mit der API-Funktion FindWindow (bzw. glaub ich dann noch weiters GetWindowText, ...) kannst du s?mtliche vorhandenen Fenster aller laufenden Programme durchlaufen lassen, und du schaust einfach, ob, wie in deinem Beispiel "Outlook", drinnen vorkommt!

4. burgi

   Co-Admin

   burgi hat kostenlosen Webspace.

   19:40, 21.8.2006

   So, hier die L?sung (als Delphi-Code), ob Outlook l?uft (hab's ausprobiert, funzt auch). Vielleicht kann's ja jemand nach VB portieren:
   
   

   procedure TForm1.Button1Click(Sender: TObject);
   var
     V: Variant;
     OutlookRunning: Boolean;
   begin
     try
       V := GetActiveOLEObject('Outlook.Application');
       OutlookRunning := True;
     except
       OutlookRunning := False;
     end;
     if OutlookRunning then
     begin
       Label1.Caption := 'Outlook l?uft';
       // was wei? ich tun! Warnmeldung?
     end
       else
         begin
           Label1.Caption := 'Outlook l?uft nicht!';
           // hier deine Batch-Datei aufrufen
         end;
   end;

   
   
   Wichtig ist nur, dass du die Unit ComOBJ einbindest, solltest du's doch in Delphi versuchen!!

5. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?