hesap makinası kapama
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
hesap makinası kapama
s.a arkadaşlar ben Winexec ile hesap makinasını açıyorum. bir buton var formda ona basınca açmış olduğum hesap makinası kapanaca bunu nasıl yapabilirim....
Allah Namına Al Allah Namına Ver Vesselam...
s.a
ben burada nasıl yollayacağımı anlamadım açıkcası biraz açabilirmisiniz.
mesela harf ne demek o anda ben harf değerine 'selam ' değerini atsam ne olur? ayrıca programdan nasıl değer alırım kendi programıma...
Kod:
ben burada nasıl yollayacağımı anlamadım açıkcası biraz açabilirmisiniz.
mesela harf ne demek o anda ben harf değerine 'selam ' değerini atsam ne olur? ayrıca programdan nasıl değer alırım kendi programıma...

Kod:
Kod: Tümünü seç
Procedure KarakterGonder(harf:char);
var
g,d:integer;
begin
{uygulamanın ana penceresini bul}
g:=FindWindow('Notepad',nil);
{uygulama penceresindeki text box'ı bul}
d:=ChildWindowFromPoint(g,point(50,50));
{karakteri gönder}
SendMessage(d,WM_CHAR,Ord(harf),0);
end;
Allah Namına Al Allah Namına Ver Vesselam...
- seandillon
- Üye
- Mesajlar: 50
- Kayıt: 04 Nis 2006 11:14
- Konum: istanbul
- İletişim:
Bence arkadaşın programını kullan.
Çünkü değeri nasıl alacağını ben de bilmiyorum.
Harf nedir?
Fonksiyon kelime göndermiyor, karakter gönderiyor.
Karakter yerine kısaca harf denmiş.
Selam için s,e,l,a,m harflerini tek tek göndermen lazım.
Hesap makinesine de örneğin yüz göndermek için 1,0,0 göndermelisin.
Fakat +,-,*,/ vs nasıl yaparsın, sonucu nasıl alabiliriz bilmiyorum.
Allah razı olsun @seandillon kodlarını bile paylaşmış, bence onu kullan.
Takıldığın yerde yine yardım ederiz.
Çünkü değeri nasıl alacağını ben de bilmiyorum.
Harf nedir?
Fonksiyon kelime göndermiyor, karakter gönderiyor.
Karakter yerine kısaca harf denmiş.
Selam için s,e,l,a,m harflerini tek tek göndermen lazım.
Hesap makinesine de örneğin yüz göndermek için 1,0,0 göndermelisin.
Fakat +,-,*,/ vs nasıl yaparsın, sonucu nasıl alabiliriz bilmiyorum.
Allah razı olsun @seandillon kodlarını bile paylaşmış, bence onu kullan.
Takıldığın yerde yine yardım ederiz.
- seandillon
- Üye
- Mesajlar: 50
- Kayıt: 04 Nis 2006 11:14
- Konum: istanbul
- İletişim:
rica ederim amaç paylaşmak ve yardımlaşmak ise bizde üstümüze düşeni yapıyoruz, bir hesap makinesinde olması gerek her şey var, ve kodları çok sade yazdım az bir algoritma yapısı ve pascal bilgisi olan her kes istediğini bulabilir...
Hayatta iki şey paylaşmaya değer, sevgi ve bilgi. sevgisiz bilgi, bilgisiz sevgi olmaz...