如何调用XP系统自带的屏幕键盘

Question

我用API函数调出windows系统的屏幕键盘，却不能使用，不能输入任何字母，不知道该如何解决，请各位大侠帮忙！
procedure TForm1.Button1Click(Sender: TObject);
begin
  winexec('C:\WINDOWS\system32\osk.exe',sw_show);
end;

Answer 1

winexec('C:\WINDOWS\system32\osk.exe',sw_show);这个地方，建议
1）先获取 系统的路径  C:\WINDOWS
2)再测试一下osk.exe文件是否存在
3）再组合起来
调用即可 

Answer 2

路径可以去掉，控件要获得焦点才能录入procedure TForm1.Button1Click(Sender: TObject);
begin
  winexec('osk.exe',sw_show);
  edit1.setfocus;
end;