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('C
B1.mdb', False, passwStr);
Self.close;
end;
end.
'################################
Was muß ich wo eingeben?
Danke
Tom