無法使用SendInput複製俄羅斯（Cyrilic或Unicode）符號（Edit1.Text）

Question

procedure SendText(ds:string); 
var 
    TI: TInput; 
    KI: TKeybdInput; 
    i: integer; 
begin 
    TI.Itype := INPUT_KEYBOARD; 
    for i := 1 to Length(ds) do 
    begin 
    KI.wVk := Ord(UpCase(ds[i])); 
    KI.dwFlags := 0; 
    TI.ki := KI; 
    SendInput(1, TI, SizeOf(TI)); 
    KI.dwFlags := KEYEVENTF_KEYUP; 
    TI.ki := KI; 
    SendInput(1, TI, SizeOf(TI)); 
    end; 
end; 

如何添加Unicode？如何使用SendInput(Edit1.Text);

Answer 1

如何使用SendInput(Edit1.Text);複製俄羅斯（Cyrilic）符號的任何建議在本例中，我使用了JEDI project的單元JclUnicode.pas。如果你有Delphi 6，那麼你可以在uses子句中省略JclUnicode。

uses 
    JclUnicode; 

procedure SendText(const Value: WideString); 
var 
    I: Integer; 
    S: WideString; 
    TI: TInput; 
    KI: TKeybdInput; 
const 
    KEYEVENTF_UNICODE = $0004; 
begin 
    S := WideUpperCase(Value); 
    TI.Itype := INPUT_KEYBOARD; 
    for I := 1 to Length(S) do 
    begin 
    KI.wVk := 0; 
    KI.dwFlags := KEYEVENTF_UNICODE; 
    KI.wScan := Ord(S[I]); 
    TI.ki := KI; 
    SendInput(1, TI, SizeOf(TI)); 
    end; 
end;