Hinweis-Popup 3-4 sekunden anzeigen lassenn

[Bummi]

wieso VCL?

Delphi-Quellcode:

constructor TCloseThread.Create(const Caption: String; Wait: Integer);
begin
  inherited create;
  FWait := Wait;
  FCaption := Caption;
  FreeOnTerminate := true;
end;

procedure TCloseThread.Execute;
var
  h:hwnd;
begin
  Sleep(Fwait);
  h := FindWindow(nil,PChar(FCaption));
  if h>0 then SendMessage(h,wm_Close,0,0);
end;