Anwendung todsicher beenden, aber wie??

[busybyte]

Keine Ahnung, ob das für Deine Zwecke ausreichend ist und mit showmodal etwas bringt,vieleichet hat auch shmia recht?

Delphi-Quellcode:

uses shellapi;

procedure TForm1.Button2Click(Sender: TObject);
var
  h:hWnd;
begin
  h := FindWindow_('Editor');
  postmessage(h,WM_SYSCOMMAND,SC_CLOSE,0);
end;

deswegen verwende ich meist normale forms mit Arbeitsbereichsbegrenzung

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
        Rec: TRect;
      begin
        Rec.Left := Left;
        Rec.Top := Top;
        Rec.Right := Left + Width;
        Rec.Bottom := Top + Height;
        ClipCursor(@Rec);
     
      end;



procedure TForm1.Button2Click(Sender: TObject);
begin
//      Und wieder freigeben:
  ClipCursor(nil);
end;