Sich gegen KillProcess wehren

[kalmi01]

Zitat von Luckie:

dass man sich nicht dagegen wehren kann ist auch gut so

bist Du dir da sicher ?

Delphi-Quellcode:

procedure TForm1.WMQueryEndSession;
  begin
    Msg.Result := 0;

    MachWasSinnvolles;

    Down := true;
    Msg.Result := 1;
  end;

procedure TForm1.WMEndSession;
  begin
    while not Down do Sleep(100);

    Msg.Result := 1;

    Self.Close;
  end;

beendet erst, wenn MachWasSinnvolles fertig ist.