Hotkey wert aus Shortcut lesbar und zurück

[dummzeuch]

Zitat von KodeZwerg:

Wie könnte ich einen Hotkey Word Wert eines Link Files lesbar konvertieren, hat da jemand Ahnung von?

Sieht so aus, als ob die Bits der Zusatztasten verschoben sind, und zwar um 5 Bits nach rechts. Sprich: Um sie in Delphi anzuzeigen, muesstest Du sie um 5 Bits nach links schieben (shl 5) und um sie ggf. zurueckzuschreiben, um 5 Bits nach rechts (shr 5).

Das ist jetzt allerdings reines Reverse-Engineering: Ich habe einen Shortcut mit und ohne Hotkey verglichen und mir den Rest zusammengereimt.

[KodeZwerg]

Also das auslesen klappt perfekt.
(SLI ist ein Record fürs LinkFile)

Delphi-Quellcode:

    edHotKey.Text := '';
    HotKeyMod := Hi( SLI.HotKey );
    cbALT.Checked := (HotKeyMod and HOTKEYF_ALT) = HOTKEYF_ALT;
    cbCTRL.Checked := (HotKeyMod and HOTKEYF_CONTROL) = HOTKEYF_CONTROL;
    cbSHIFT.Checked := (HotKeyMod and HOTKEYF_SHIFT) = HOTKEYF_SHIFT;
    edHotKey.Text := ShortcutToText( SLI.HotKey );

so sind die checkboxen korrekt gesetzt, im edHotKey.Text steht nur der Key.
aber beim schreiben stell ich mich noch zu dumm an

Delphi-Quellcode:

    HotKeyMod := 0;
    if cbALT.Checked then HotKeyMod := ( HotKeyMod and HOTKEYF_ALT );
    if cbCTRL.Checked then HotKeyMod := ( HotKeyMod and HOTKEYF_CONTROL );
    if cbSHIFT.Checked then HotKeyMod := ( HotKeyMod and HOTKEYF_SHIFT );
    SLI.HotKey := ( Hi( HotKeyMod ) and Lo( TextToShortcut( edHotKey.Text ) ) );

[KodeZwerg]

Um es hier auch erwähnt zu haben, so ist es nun gelöst.
Ich und die verschiedenen Typen und Lo und Hi und AND und OR und all das nenene, da hat mir ein Profi geholfen, ich war zu unerfahren in dem Moment.

Delphi-Quellcode:

  if cbALT.Checked then HotKeyMod := ( HotKeyMod or HOTKEYF_ALT );
  if cbCTRL.Checked then HotKeyMod := ( HotKeyMod or HOTKEYF_CONTROL );
  if cbSHIFT.Checked then HotKeyMod := ( HotKeyMod or HOTKEYF_SHIFT );
  SLI.HotKey := ( ( HotKeyMod SHL 8 ) or ( TextToShortcut( edHotKey.Text ) AND $FF ) );
// SLI.HotKey ebenso wie HotKeyMod entsprechen Typ "Word"
// am Ende bekommt man praktisch zwei Bytes hintereinander als Word abgelegt