sendstring.pas

来自「用delphi写的密码管理工具.」· PAS 代码 · 共 48 行

unit SendString;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls;

type
  TfraSendString = class(TFrame)
    Edit1: TEdit;
    btnSend: TButton;
    btnSendToWindow: TButton;
    procedure btnSendClick(Sender: TObject);
    procedure btnSendToWindowClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses SelectWin, Main, SNDKEY32;

{$R *.dfm}

procedure TfraSendString.btnSendClick(Sender: TObject);
begin
  Application.Minimize;
  SendKeys(PChar(Edit1.Text), True);
end;

procedure TfraSendString.btnSendToWindowClick(Sender: TObject);
begin
  with frmSelectWin do
  begin
    lstWin.Items.Assign(frmMain.slWinTitle);
    if frmSelectWin.ShowModal = mrOK then
    begin
      SetForegroundWindow(StrToInt(frmMain.slWinHandle[lstWin.ItemIndex]));
      SendKeys(PChar(Edit1.Text), True);
    end;
  end;
end;

end.