Hallo,
ich will ermöglichen, das man bei meinem Programm Drive O+C ein Laufwerk via der Tastenkombination
Alt + O + Laufwerksbuchstabe (muss man in ein Editfeld eingeben) öffnen
und via der Tastenkombination
Alt + C + Laufwerksbuchstabe wieder schließen kann.
Der Source sieht folgendermaßen aus (Ausschnitt):
Delphi-Quellcode:
procedure TForm2.WMHotKey(
var msg: TMessage);
begin
if (msg.WParam = 1)
then ed1;
if (msg.WParam = 2)
then ed2;
if (msg.WParam = 3)
then ed3;
if (msg.WParam = 4)
then ed4;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
a, b , c, d:
string;
begin
a := form2.edit1.text;
c := form2.edit3.text;
RegisterHotKey(
Handle,1, MOD_ALT,VK_O, a);
RegisterHotKey(
Handle,2, MOD_ALT,VK_C, a);
RegisterHotKey(
Handle,3, MOD_ALT,VK_O, c);
RegisterHotKey(
Handle,4, MOD_ALT,VK_C, c);
end;
Ich bekomme dabei die Fehlermeldung das 'VK_0' undefiniert ist und das
zuviele Parameter vorhanden sind, ja ich weiß eine Taste zuviel, aber kann man das nicht auch
irgendwie mit drei Tasten machen?
Und wieso erkennt es 'VK_0' nicht?
MfG