[Shutdown] - Verhindern, dass Windows es "abschießt"

[xZise]

Aber ich wills ja net abbrechen sondern nur "hinauszögern" ohne das gleich die Meldung kommt. Es handelt sich hier um Schulcomputer und aufgrund des Verhalten der Schüler weiß ich, dass sie sofort die Meldung wegdrücken ("Sofort beenden")
Und bei Vista, welches nicht benutzt wird, aber wer weiß..., wäre das ja noch schlimmer xD

Naja... Jetzt funktionierts schonmal soweit, dass man die Ordner automatisch löschen kann

[pertzschc]

Zitat von xZise:

Aber ich wills ja net abbrechen sondern nur "hinauszögern" ohne das gleich die Meldung kommt. Es handelt sich hier um Schulcomputer...

Was willst Du eigentlich machen, was länger als sagen wir mal 30 sec. dauert?

Gruß,
Christoph

[kalmi01]

Zitat von xZise:

Aber ich wills ja net abbrechen sondern nur "hinauszögern" ohne das gleich die Meldung kommt.

Dann hilft Dir sicher dies:

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Classes, Forms,
  Registry, ShellAPI, WinInet;

type
  TForm1 = class(TForm)
   private
    procedure CleanDir(SearchDir : string);

    procedure WMQueryEndSession(var Msg: TMessage); message WM_QUERYENDSESSION;
    procedure WMEndSession(var Msg: TMessage); message WM_ENDSESSION;
  end;

Im implementation-Teil dann noch:

Delphi-Quellcode:

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

    CleanDir;

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

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

    Msg.Result := 1;

    Self.Close;
  end;