Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#5

AW: Zeichen zur eignen Form zur Weiterverarbeitung schicken

  Alt 2. Jul 2013, 21:52
Hi Emil, Hi Wo

SendKeys wird es wohl sein. Danke für den Hinweis und den Link.
Du kannst das Projekt Progcommand laden oder ich lade die Unit hier nochmal hoch.

EDIT:
Hab sie hochgeladen..
Bei einigen mußt du den Key mappen bei einer ausgabe als string.. aber ich denke das ist dir bekannt..

Delphi-Quellcode:
function GetKeyName(aKey:Byte): string;
var
  ScanCode: cardinal;
  KeyName: array[0..255] of char;

begin
 Result := '';
 ScanCode := (MapVirtualKey(byte(aKey), 0) shl 16);

 if ScanCode <> 0 then
 begin
   GetKeyNameText(ScanCode, KeyName, SizeOf(KeyName));
   Result := KeyName;
 end;
end;


gruss

Geändert von EWeiss (11. Jul 2019 um 17:13 Uhr)
  Mit Zitat antworten Zitat