to wangyufan：你没看我那个帖子吗？用那个方法就应该可以啊：
把Form的KeyPreview设为True；给Form定义一个私有变量——
private
sInput: String;
procedure TForm1.FormCreate(Sender: TObject);
begin
sInput := '';
end;
然后在Form的OnKeyPress里：
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if IsDBCSLeadByte(Ord(Key)) then sInput := sInput + Key;
if Length(sInput) = 2 then begin
if sInput = '＃' then WinExec('c:/windows/notepad.exe', SW_SHOW);//具体文件名换成你实际用的
sInput := '';
end;
end;
