shut down

[chrisw]

Code:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
      ExitWindows(0,0);
}

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
ExitWindows(0,0);
end;