Ekran Klavyesi

[kaan_karabey]

Arkadaslar mrb delphi 7 de ekran klavyesini nasıl açtırırım bütün windows sürümlerinde uyması için

benim kullandığım kod

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
WinExec('C:\Windows\System32\osk.exe',SW_SHOW);
end;

şu yoluda denedim açmadı

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
WinExec('C:\Windows\SysWOW64\osk.exe',SW_SHOW);
end;

böyle açmıyor.osk.exe yi proje dosyasına kopyalayınca kendi bilgisayarımda açıyor. bilgisayarım 64 bit,

32 bitlik bilgisayarlarda açmıyor.Ben direkt olarak C:\Windows\System32\osk.exe burdan aldırıp açmak istiyorum.Böylelikte bütün windows sürümlerinde aynı yerde oldugu için ordan direkt açaçaktır.Nasıl yapacağim bilmiyorum.

[dreampower]

Shellexecute dene birde;

uses satırına shellapi ekle.

function System32: string;
var
SysDir: PChar;
begin
SysDir := StrAlloc(MAX_PATH);
GetSystemDirectory(SysDir, MAX_PATH);
Result := string(SysDir);
if Result[Length(Result)] <> '\' then
Result := Result + '\';
StrDispose(SysDir);
end;

Procedure ekranklavyesi;
begin
shellexecute(0,'open',pansichar(system32+'osk.exe'),0,0,0);
end;