Thema: Delphi Windows XP beenden

Einzelnen Beitrag anzeigen

Tyrael Y.

Registriert seit: 28. Jul 2003
Ort: Stuttgart
1.093 Beiträge
 
Delphi 2007 Professional
 
#62

Re: Windows XP beenden

  Alt 8. Mär 2005, 10:50
Hallo zusammen,

ich habe die Codes zum runtefahren auch getestet und nur in einem Fall
fährt de Rechner wirklich runter..

..und zwar, wenn ich in einem Testprogramm nur ein OnButtonClick Ereignis habe

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  winexec('shutdown.exe -s', 1);
end;
dies funktioniert...


..aber wenn ich dies im Programmzusammenhang benutze

Delphi-Quellcode:
procedure DoIt();
...
begin
  if Success then
  begin
    DoSomething();
    Sleep(3000);
    Winexec('shutdown.exe -s', 1)
  end
  else
  begin
   ...
  end;
end;
funtioniert es nicht..

DoSomething schreibt nur in eine Textdatei einen Wert rein,
so daß ich sehe, daß es aufgerufen wurde.

..bissel komisch find ich das Verhalten schon..

..werde es mal weitertesten..


Gruß Tyrael
Levent Yildirim
Erzeugung von Icons aus Bildern:IconLev
  Mit Zitat antworten Zitat