Soyez le premier à donner votre avis sur cette source.
Vue 15 629 fois - Téléchargée 407 fois
// Dans un form tout bête avec un bouton. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleServer, Outlook2000, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); Var DCOMoutlook: TOutlookApplication; bOuvert, bFermeSuccess : Boolean; begin // // Test si outlook est ouvert et si c'est le cas essaye de le fermer // bOuvert:= False; DCOMoutlook := TOutlookApplication.Create(nil); try DCOMoutlook.ConnectKind := ckRunningInstance; //Si pas ouvert => exception, sinon affectation du booléen Try DCOMoutlook.Connect; bOuvert := True; DCOMoutlook.Quit; Except // Erreur connection => Outlook non ouvert End; Finally DComOutlook.Free; end; // // Test si outlook est fermé // bFermeSuccess := True; if ( bOuvert ) Then Begin DCOMoutlook := TOutlookApplication.Create(nil); try DCOMoutlook.ConnectKind := ckRunningInstance; //Si pas ouvert => exception, sinon affectation du booléen Try DCOMoutlook.Connect; bFermeSuccess := False; Except // Erreur connection => Outlook est bien fermé End; Finally DComOutlook.Free; end; End; if ( bOuvert ) Then Begin ShowMessage('Outlook ouvert'); if ( bFermeSuccess ) Then ShowMessage('Outlook fermé avec succés') Else ShowMessage('Outlook non fermé'); End Else ShowMessage('Outlook non démarré'); end; end.
1 juil. 2005 à 11:03
Mais je désire avec le code sur l'utilisation du composant TAccessApplication.
Et si comment utiliser AccessReport.
A++
14 déc. 2003 à 07:40
Merci pour ces précisions.
13 déc. 2003 à 23:53
Mais pas dans D 4 Professionnel :(((
13 déc. 2003 à 22:57
13 déc. 2003 à 21:11
Delphi 4 Professionnel,
Delphi 6 Entreprise.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.