String -> Word

[TheAn00bis]

Die Idee mit der Datei gefällt mir.

Aber mir fällt gerade ein, dass es mir eigentlich auch reichen würde statt dem "Virtual Keycode" einfach die Zahl der Konstanten als Parameter zu übergeben: Also ich übergebe dem Programm die Zahl "173" (=VK_VOLUME_MUTE) und es schaltet auf Mute.
So ist das Programm dynamisch und ich muss nur die Zahlen der Konstanten vorher herausfinden.

So funktioniert das wunderbar:

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);

  function filter(pString: String): String;  //entfernt den Bindestrich vor dem Parameter
  begin
    result := copy(pString,2,length(pString));
  end;

begin
 PostKeyEx32(strtoint(filter(ParamStr(1))) , [], False); //siehe [url]http://www.swissdelphicenter.ch/de/showcode.php?id=220[/url]
 close;
end;

Danke euch!

Edit: Man sollte das "close" nicht sofort danach ausführen, sonst funktioniert es nicht.