Arkadaşlar mrb ben bir proje yapıyorum bilgisayarım 64 bit ama ekran klavyesini açmıyor. yani direkt olarak ben
procedure TForm2.SpeedButton5Click(Sender: TObject); begin WinExec('C:\Windows\System32\osk.exe',SW_SHOW); end;
böyle yapınca ekran klavyesi başlatılamıyor diye hata veriyor.
procedure TForm2.SpeedButton5Click(Sender: TObject); begin WinExec('C:\Windows\SysWOW64\osk.exe',SW_SHOW); end;
böyle yapınca da aynı hatayı veriyor. Ama ben osk.exe yi projeye kopyalayıp çektirdiğimde hata vermeden açılıyor.Ama 32 bitlik bilgisayarda hata veriyor. O yüzden bende direkt kendi klasöründen çektirmek istiyorum yani;
C:\Windows\System32\osk.exe
böyle bunu nasıl açtırabilirim hata vermeden yardımcı olabilirmisiniz???
Delphi'de sistem klasörünü bulabilen bir fonksiyon olması lazım.
function SystemDir: string; var dir: array [0..MAX_PATH] of Char; begin GetSystemDirectory(dir, MAX_PATH); Result := StrPas(dir); end;