// Getestet mit D4 unter Win98


// Hauptform vom Screen ausblenden (im Projekt-Quelltext)

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
    Application.showMainform := false;
  Application.Run;
end.

//-----------------------------------------------------

// Anwendung vor dem Taskmanager verstecken (bei Strg+Alt+Entf)

var
  Form1: TForm1;

function RegisterServiceProcess(dwProcessId, dwType: dword): Integer; stdcall;
external 'kernel32.dll';

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterServiceProcess(0, 1);
end;

//-----------------------------------------------------

// Anwendung nicht in der Taskleiste anzeigen

procedure TForm1.FormShow(Sender: TObject);
begin
  showWindow(application.handle, sw_hide);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bordericons := bordericons - [biminimize];
end;

// Oder auch:

procedure TForm1.FormCreate(Sender: TObject);
begin
  setwindowlong(application.handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
  bordericons := bordericons - [biminimize];
end;