Delphi-PRAXiS
Seite 7 von 7   « Erste     567   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Windows XP beenden (https://www.delphipraxis.net/13733-windows-xp-beenden.html)

Luckie 28. Jan 2005 17:33

Re: Windows XP beenden
 
Zitat:

Zitat von emsländer
Dann ist es vielleicht irgendein Zufall

Sehr wahrscheinlich.

Zitat:

- aber es klappt!
Bei dir vielleicht und mit deiner Konfiguration. Wo naders und mit einer anderen Konfiguration eventuell nicht mehr. Sicher sein kannst du dir jedenfalls nicht.

Tyrael Y. 8. Mär 2005 09:50

Re: Windows XP beenden
 
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

scp 8. Mär 2005 15:57

Re: Windows XP beenden
 
Hallo Tyrael,
blätter am besten nochmal zurück und probier die anderen Möglichkeiten mit ExitWindowsEx bzw. ExitWin, die Methode per WinExec ist nicht so sinnvoll.


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:49 Uhr.
Seite 7 von 7   « Erste     567   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz