Kaltlichtiodden ein und ausschalten mittels programm

[ToZie]

Klar geht das, folgender Code wird die Lampen abschalten:

Delphi-Quellcode:

function LampenAus: boolean;
var
  hToken: THandle;
  tp: TTokenPrivileges;
  h, Flag:   DWord;

begin
  flag:=EWX_SHUTDOWN;
  if (Win32Platform = VER_PLATFORM_WIN32_NT) then begin
    flag:=EWX_POWEROFF;
    OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken);
    LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid);
    tp.PrivilegeCount:=1;
    tp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
    h:=0;
    AdjustTokenPrivileges(hToken, False, tp, 0, PTokenPrivileges(nil)^, h);
    CloseHandle(hToken);
  end;
  Flag:=Flag or EWX_Force;
  Result:=ExitWindowsEx(flag, 0);
end;

Viel mehr wird allerdings mit deinen Lampen nicht möglich sein.

Torsten

[BUG]

Zitat:

Zitat von bluesbear

USB kann bei 5V 500mA liefern, das sind 2,5W.

"Kann" heißt hier nicht "muss"!
USB-Controler kann auch nur 100mA bei 5V liefern (0.5W).
USB-Geräte die unerlaubt mehr saugen, werden theoretisch abgeschaltet.
[Quelle: spruts Homepage]


MfG.
Bug

[tomsel]

Als du die Dioden angeschlossen hast, haben sie da geleuchtet?

wenn ja:

wie lange? (ich tippe auf extrem kurz)
wie hell? (ich rate: extrem hell)


(oder haben die Dinger einen integrierten Vorwiderstand?)


:lol:

[bluesbear]

:lol: Fällt mir grad erst auf: es geht um Lichtiodden. Die funktionieren anders.

[1234588]

Zitat:

Zitat von bluesbear

USB kann bei 5V 500mA liefern, das sind 2,5W. <g> Es gibt nette Steuerungsdinger, die größere Lasten schalten. Das hier wird offtopic.

http://www.ac-reims.fr/datice/sti/mo...ppro/relai.jpg

ist im grund nichts anderes als ein schalter, der durch einen elektromagnet kurz geschlossen wird. dabei wird nur eine stromstaerke benoetigt, die dem magneten seine kraft verleiht :>
bei groeßeren hi-fi anlagen ist manchmal ein 'klick' geraeusch hoerbar. oder im auto das klicken des blinkers, nichts anderes als ein relai.
bei http://www.pollin.de gibts einen bausatz mit 6 oder 8 relais (muesste ich selbst nachschauen). kostet 15 bis 20e und ist ueber den com port ansteuerbar, was imho ne ecke einfacher ist als ueber usb :o)
außerdem ist auch software dabei mit der es moeglich ist die relais einzelln anzusteuern.

mal so am rande, es schimpft sich 'kaltlichtkathoden', nicht 'Kaltlichtiodden' und es hat auch nichts mit dioden zu tun :)

[tomsel]

bluesbear: Um was? Leuchtidioten?

[Muetze1]

@12345678: Relais bitte, Relais

[Dunkel]

Zitat:

Zitat von Muetze1

@12345678: Relais bitte, Relais

Na komm, er hat zwei Mal Relais geschrieben, ein Mal ohne S. Das kann man als Schnellschreibfehler tolerieren, finde ich.

OnTopic: such mal nach "Rechner herunterfahren" in der DP, damit sollte man das Licht ausschalten können. :wink:

[Muetze1]

Zitat:

Zitat von Dunkel

Na komm, er hat zwei Mal Relais geschrieben, ein Mal ohne S. Das kann man als Schnellschreibfehler tolerieren, finde ich.

Jo, stimmt. Ich hatte zuvor aber nur den falschen Bildnamen im Link gesehen und gleich danach im Text nochmal, somit auch gleich aufgehört zu lesen. (Sorry, ich bin so selbstgefällig)

Zitat:

Zitat von Dunkel

OnTopic: such mal nach "Rechner herunterfahren" in der DP, damit sollte man das Licht ausschalten können. :wink:

Siehe Beitrag #21 von ToZie...

[1234588]

Zitat:

Zitat von Muetze1

Jo, stimmt. Ich hatte zuvor aber nur den falschen Bildnamen im Link gesehen und gleich danach im Text nochmal, somit auch gleich aufgehört zu lesen. (Sorry, ich bin so selbstgefällig)

unverzeihlich :stupid: