Anasayfa > Kodlar > Delphi ile Ekran klavyesi

Delphi ile Ekran klavyesi


Bu dışardaki herhangi bir uygulamaya hakan yazan basit bir program ama geliştirilebilir....

var
a:PChar;

function SendKeys(ClassOrCaption:PChar;Keys:array of Integer):Boolean;
var
hW:HWND;
Ix:Integer;
begin
hW:=FindWindow(ClassOrCaption,nil);
if hW<=0 then hW:=FindWindow(nil,ClassOrCaption);
Result:=hW>0;
if Result then
begin
Result:=SetForeGroundWindow(hW);
if not Result then Exit;
for Ix:=0 to High(Keys) do KeyBd_Event(Keys[Ix], 0, 0, 0);
for Ix:=High(Keys) downto 0 do Keybd_Event(Keys[Ix], 0, KEYEVENTF_KEYUP, 0);
end;
end;

function ActiveClass: string;
var
Handle: THandle;
Title: string;
begin
Result := ";
Handle := GetForegroundWindow;
if Handle <> 0 then
begin
SetLength(Title, 300);
GetClassName(Handle, PChar(Title), 300);
Result := TrimRight(Title);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SendKeys(a,[72,65,75,65,78]);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not Application.Active then
a:=pchar(ActiveClass);
end;


TD Software


  1. Cengizhan
    13/04/2011, 10:18

    Ben bu kodu olduğu gibi kopyala-yapıştır yaptım. programda 1 button 1 de timer geçiyor onları da attım formuma ancak çalışmadı hata veriyor sürekli. Başka yapmam gereken bir şey mi var acaba ?

    Beğen

  2. çilingir
    23/12/2011, 12:02

    Siteyi çok beğendiğimi içtenlikle belirtmek isterim. Sitenizi takip listeme alıyorum.

    Teşekkür ederim.

    Serhat Çilingir
    skype: cilingir1,350268E+10

    Beğen

  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: