Skocz do zawartości


Close Open
Close Open
Zdjęcie
- - - - -

Polecenie systemowe na wyłączenie komputera


  • Please log in to reply
3 replies to this topic

#1 wiktor93

wiktor93

    Uczestnik

  • Forumowicze
  • PipPipPipPip
  • 167 Postów:
  • Płeć:Mężczyzna
  • Lokalizacja:Przemyśl, Polska

Napisany 20 lipiec 2009 - 08:21

Witam. Na spryciarzach znalazłem ciekawy filmik. Chciałbym zrobić tak na Windows 7, ale potrzebuję do tego polecenia systemowego na wyłącznie komputera. Jak ktoś poda będę wdzięczny :)

#2 repylek

repylek

    Very Lazy Cat

  • Forumowicze
  • PipPipPipPipPipPipPipPip
  • 40386 Postów:
  • Płeć:Mężczyzna

Napisany 20 lipiec 2009 - 09:45

Nie wiem czy Win7 ma podobne polecenie?

http://www.poradykom...hutdown-32.html

[color=#0000ff;]Linkman M-24[/color]


#3 eider111

eider111

    Rozmowny

  • Forumowicze
  • PipPipPipPipPipPip
  • 674 Postów:
  • Płeć:Mężczyzna
  • Lokalizacja:Kraków, Polska

Napisany 20 lipiec 2009 - 11:01

polecenia systemowego na wyłącznie komputera.


Proszę bardzo:
ExitWindowsEx()

Funkcja ta zamyka system Windows. Oczywiście samym kodem nic nie zrobisz, gdyż musi on zostać wykonany przez program wykonujący. Domyślnie jest on zawarty w kilku miejscach, i można go uaktywnić kilkoma sposobami. najpopularniejsze z nich to: Okno zamykania systemu Windows, oraz pojedyncze krótkie naciśnięcie przycisku na obudowie. W takim wypadku ładowany jest moduł, któy wykonuje to polecenie. Efektem czego jest zamknięcie systemu Windows.


Tutaj przykład w języku Delphi:

procedure TForm1.Button1Click(Sender: TObject);
 
begin
 
 ExitWindowsEx(EWX_FORCE,0);
 
end;

W sieci możesz znaleść multum takich programów- gotowców. Nalepiej poszukaj na 4programmers.net w dziale Download>Delphi

Taki plik umieszczasz na pulpicie jak normalny program EXE.

PS. Na filmiku masz wszystko ładnie opsiane co trzeba wpisać. Wystarczy użyć oczu.

#4 SamAdam

SamAdam

    Adept

  • Forumowicze
  • Pip
  • 1 Postów:

Napisany 21 maj 2018 - 09:41

Niestety, ale u mnie nie działa, pokazuje się coś takiego:

 

Error: Found declaration: ExitWindowsEx(LongWord;LongWord):LongBool;

 

 

OK. Liczba parametrów mi się nie zgodziła i stąd wynikł błąd...

A jak by ktoś używał jak ja nie z delphi a np. z Lazarusa, to nalezy dopisać do uses: Windows.

 

Pozdro.






0 Użytkowników czyta ten temat

0 użytkowników, 0 gości, 0 anonimowych użytkowników