Einzelnen Beitrag anzeigen

detom

Registriert seit: 13. Mär 2008
16 Beiträge
 
#1

D6 - Form / Progr. schließen

  Alt 13. Mär 2008, 11:44
Hallo NG,

habe jetzt ein Formular welches beim Anwendungsstart sofort angezeigt wird.
Vom Formular wird automatisch eine externes Programm gestartet.
Das Formular soll sich ohne Useraktion automatisch sofort wieder schließen.
Wie mache ich das?

Ich habe momentan folgendes:

'######################################
unit wt2_rep;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
AccDB1 : OleVariant;
passwStr : String;

public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

uses ComObj;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
passwStr:= 'passwort';
AccDB1 := CreateOleObject('Access.Application');
AccDB1.OpenCurrentDatabase('CB1.mdb', False, passwStr);
Self.close;
end;
end.
'################################
Was muß ich wo eingeben?
Danke
Tom
  Mit Zitat antworten Zitat