Versteckt arbeiten?

[Ratte]

Hi,

Fehler gefunden!!!!!!!! Vertippt!!! :wall: Trotzdem [size=48]THX[/size]

Ratte

[Matze]

Und woran lag's nun? :gruebel:

Wäre nett, wenn du das noch posten könntest. ;)

Danke schonmal. :)

[Ratte]

Delphi-Quellcode:

procedure GetMemoryInfo(var total, available: LongInt);
var memory: TMemoryStatus;
begin
  memory.dwLength:=SizeOf(memory);
  GlobalMemoryStatus(memory);
  total:=memory.dwTotalPhys;
  available:=memory.dwavailPhys;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var insgesamt, verfuegbar: LongInt;
begin
  GetMemoryInfo(insgesamt, verfuegbar);
  Gauge1.MaxValue:=insgesamt;
  Gauge1.Progress:=insgesamt-verfuegbar;
  If ((Radiobutton4.Checked) AND ((DatePicker2.Date)+Frac(TimePicker1.Time)<=Now)) OR
  ((Radiobutton5.Checked) AND (Combobox1.ItemIndex=0) and (Gauge1.PercentDone>Spinedit1.Value)) OR
      ((Radiobutton5.Checked) AND (Combobox1.ItemIndex=1) and (Gauge1.Percentdone<Spinedit1.Value)) Then Begin
    // damit das ereignis nur einmal auftritt den timer deaktiveren
    timer1.Enabled:=false;
    IF Radiobutton1.Checked THEN begin
    //ExitWindowsEx(EWX_SHUTDOWN, 0);  <--------------------------------------------------------------------------Hier!!!!!!!!!!
     close;
    end;
    IF Radiobutton2.Checked THEN
    begin
    ExitWindowsEx(EWX_REBOOT, 0);
    close;
    end;
    IF Radiobutton3.Checked THEN ExitWindowsEx(EWX_LOGOFF, 0);
  End;