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.
Ekran Klavyesi
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 107
- Kayıt: 01 May 2013 05:30
Ekran Klavyesi
Sevgiler Yalan Olmuş Yalan Sahtekar Bırakıpta Bir Gün Seni Gitmeyecek Mi?
-
- Üye
- Mesajlar: 23
- Kayıt: 06 Tem 2009 04:27
Re: Ekran Klavyesi
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;
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;