?? sendstring.pas
字號(hào):
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.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -