Tastenaktion

[zokka114]

Nabend !

ich hab folgendes Problem :

Ich möchte per Klick auf einen Button die gleiche Aktion auslösen als wenn ich die Windows-Taste drücke (z.b. die linke Windows-Taste).

Wäre kuhl wenn mir jemand helfen könnte!

MfG

Zokka114

[bitsetter]

Hallo,

ich glaube du meinst sowas hier:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  keybd_event(VK_LWIN, 0, 0, 0);
  keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
end;

[zokka114]

Klappt Super !
Danke!
Kannst du vielleicht erklären was die ganzen Werte, die in Klammern stehen, bedeuten ?

[bitsetter]

Hier kannst du es nachlesen:
keybd_event Function

und noch ein Link für die Liste der virtuellen Tastencodes:
Liste der virtuellen Tastencodes (VK_)

[zokka114]

Mein Ziel ist es Windows durch eine Folge von Tasten-Aktionen herunterzufahren.
Ich hab mich schon im Netz umgeschaut und festgestellt das man Windows XP nich einfach per "ExitWindowsEx" herunterfahren kann.
Nun dachte ich mir das man einfach virtuell die 'Windows-taste' dann die 'C-Taste' und dann die 'A-Taste' drücken lassen kann.
So müsste der Rechner mit einem klick runterfahren.

Nur Delphi erkennt VK_C und VK_A nicht !

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 keybd_event(VK_LWIN, 0, 0, 0);
 keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
 keybd_event(VK_C, 0, 0, 0);
 keybd_event(VK_C, 0, KEYEVENTF_KEYUP, 0);
 keybd_event(VK_A, 0, 0, 0);
 keybd_event(VK_A, 0, KEYEVENTF_KEYUP, 0);
end;

Warum funktionieren die einfachen Zahlen (z.B.VK_8) oder Buchstaben (z.B. VK_C) nicht ?

MfG

[bitsetter]

Zitat:

Quelle hiefür war die Unit WINDOWS und die unit SNDKEY32 von Delphi 7:

Ansonsten geht es auch so:

Delphi-Quellcode:

  keybd_event(ord('C'), 0, 0, 0);
  keybd_event(ord('C'), 0, KEYEVENTF_KEYUP, 0);

Zitat von zokka114:

Mein Ziel ist es Windows durch eine Folge von Tasten-Aktionen herunterzufahren.
Ich hab mich schon im Netz umgeschaut und festgestellt das man Windows XP nich einfach per "ExitWindowsEx" herunterfahren kann.

Zu dem Thema kannst du das hier mal testen:
Abmelden / Reboot / Shutdown unter Win 95/98/ME/NT
Der Aufruf der Funktion erfolgt so:
ExitWin(EWX_SHUTDOWN);

[zokka114]

Danke mit deiner Hilfe funktioniert jetzt mein Schutdown-Programm wie ich es wollte !

MfG zokka114

[zokka114]

Aber eine Frage hätte ich da noch !

Wie kann man denn Zwei Tasten gleichzeitig "virtuell" drücken lassen ?

MfG

[bitsetter]

Hallo,

versuche es mal so:

Delphi-Quellcode:

  keybd_event(vk_Shift,0,0,0);
  keybd_event(ord('C'),0,0,0);
  keybd_event(vk_Shift,0,keyeventf_keyup,0);
  keybd_event(ord('C'),0,keyeventf_keyup,0);

VK_SHIFT und C