小编Yur*_*ios的帖子

我怎样才能插入编辑控件到鼠标指针位置是任何窗口中的文本,而无需使用剪贴板和/或窗口句柄.

我使用的是Delphi 7.

我需要将一个表单隐藏到系统托盘中,但同时我想使用热键,例如"ctrl + 3"从我的hiden表单上的tEdit获取文本,插入到Firefox SendText(edit1.Text); //在这种方法中.我知道如何插入文本,但我对热键没有任何了解/任何建议？谢谢.下面插入的文字代码

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;

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？任何建议如何使用复制俄罗斯(Cyrilic)符号SendInput(Edit1.Text);

你能解释一下如何计算TMemo中的单词并在TLabet或TEdit中显示结果吗？可能吗？另外我想知道怎么算相似的单词(重复的单​​词)数量.谢谢.PS:我怎样才能在文字中找到单词密度？例如:单词"dog"在文本中出现三次.文本的字数是100.因此,"狗"这个词的密度是3%.(3/100*100%).