Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Şimdi Ara
H
@halidziya
er
"er": Geleneksel rütbe sistemi koşulları geçerlidir.
Diğer rütbeleri gör

0 takipçi
Özel Mesaj

Er
05 Ekim 2006
Tarihinde Katıldı
Takip Ettikleri
0 üye
Görüntülenme
Toplam: 1 (Bu ay: 0)
Fırsat Ekle
Gönderileri
H
halidziya (halid Ziya) · Delphi / C++ /Vb altına konu açtı. 16 yıl

Delphi Mouse Event

Aşağıdaki program delphi de benim yaptığım hareketleri taklid etmesini sağlamak istiyorum.
Hareketler tamam ama tıklama olmadı. Programımın dışında tıklamaları nasıl takip ederim


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, AppEvnts, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure aeMessage(var Msg: tagMSG; var Handled: Boolean);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure MyMouseEvent(var Msg: TMsg; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
mos:tpoint;
ass:Tmouse;
coords : array[1..100000, 1..3] of Integer;
i : Integer;
mode : Integer ;
max : Integer;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
mode:= 1;
i:=0;
end;

procedure TForm1.aeMessage(var Msg: tagMSG; var Handled: Boolean);
begin
{ edit1.Text:=inttostr(msg.pt.X);
edit2.Text:=inttostr(msg.pt.y); }
coords[i,1] := msg.pt.X;
coords[i,2] := msg.pt.Y;
i := i+1;
max := i;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ass:=Tmouse.Create;
i:=1;
max := 0;
mode := 0;
Application.OnMessage := MyMouseEvent;

end;

procedure mouseclick() ;
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (mode = 2 ) then
begin
{ edit1.Text:=inttostr(ass.CursorPos.X);
edit2.Text:=inttostr(ass.CursorPos.y); }
coords[i,1] := ass.CursorPos.X;
coords[i,2] := ass.CursorPos.Y;
i := i+1;
max := i;
end;

if (mode = 1) then
begin
mos.X:=coords[i,1];
mos.Y:=coords[i,2];
ass.CursorPos:=mos;
case coords[i,3] of
1 : mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
2 : mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
3 : mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
4 : mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
end;
i := i +1;
if (i >= max) then
begin
mode:=0;
i:=0;
end;
end;

end;


procedure TForm1.Button2Click(Sender: TObject);
begin
mode:= 2;
i:=0;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
mode:= 1;
i:= 0;
end;

procedure TForm1.MyMouseEvent(var Msg: TMsg; var Handled: Boolean);
begin
case Msg.message of
wm_LButtonDown: coords[i-1,3] := 1;
WM_LBUTTONUP: coords[i-1,3] := 2;
WM_RBUTTONDOWN : coords[i-1,3] := 3;
WM_RBUTTONUP : coords[i-1,3] := 4;
end;
end;


end.
1 Yanıt Yanıtla Favorilere Ekle 0
H
halidziya (halid Ziya) · Sunucu Teknolojileri ve Donanımları altına konu açtı. 16 yıl

Exchange yada MS SQL

Exchange yada MS SQL çalışmasını durdurmadan diske yazmasını önlemek istiyorum.Yani okuma yazma işlemini kapatmadan (ram e yazsın sanal bir diske yazsın nereye yazarsa yazsın) diske erişimlerini sınırlayabilir miyim.

VDI diye bir aygıt sanallaştırma sistemi var ama bir türlü anlamadım nedir bilgisi olan varsa yada bilgisi olan birini bilen varsa bildirirse sevinirim.

İki haftadır çözemedim microsoft forumlarında bile cevaplanamadı çok uç bir konu bilen varsa bu işin piridir.
Yanıt Yok Yanıtla Favorilere Ekle 0
H
halidziya (halid Ziya) · Sunucu Teknolojileri ve Donanımları altına konu açtı. 16 yıl

Flash Copy

IBM DS4000 serisi üzerinde flash copy ile alınan bir yedekleme nasıl geri alınır. Yani restore işlemi nasıl gerçekleştirilir.
Yanıt Yok Yanıtla Favorilere Ekle 0
H
halidziya (halid Ziya) · MsSQL / MySQL altına konu açtı. 16 yıl

MSsql Hot back up

veri depolama alanında kullanılacak bir yedekleme yazılımı yapmak istiyorum. Bu yazılım diskin snaphot'unu alıyor. Bu snapshot'un consistent olması için
herhangi bir programın disk üzerine veri yazma sürecinde olmaması lazım.Bu yüzden programımız sql,oracle,db2 ne varsa senkron çalışması gerekiyor. Bu senkroniteyi
sağlamak için programları backup moda almamız lazım bunu nasıl yapacağımızı bilmiyorum. Yardımcı olursanız sevinirim.

ORACLE için bu pek zor değil sanırsam ama ms SQL için vdi mod diye tanımlanmış bir şey var ama API si çok karışık.
Bu backup modunun diğer ismi de hot back up mış
5 Yanıt Yanıtla Favorilere Ekle 0
H
halidziya (halid Ziya) · Site Tanıtımları altına konu açtı. 16 yıl

www.fatihcs.org

Üniversitede klübümüzün sayfası en güzel özelliği ders notlarını buraya koyuyoruz.

IBM DS4000 hakkında türkçe döküman arayan varsa burada bulabilir.

www.fatihcs.org
1 Yanıt Yanıtla Favorilere Ekle 0
H
halidziya (halid Ziya) · Delphi / C++ /Vb altına konu açtı. 16 yıl

Mouse Kontrolü

Herhangi bir dil kullanarak Fare ve Klavyeden alınan verileri kaydedip benim yaptığım aynı şeyleri tekrar eden program nasıl yapabilirim.
Gerçi .NET içinde cursor objesi ile bunu yapabiliyoruz ama sadece formun içinde sınırlı kalıyor benim işime yaramıyor.




Bilgisayar- Elektronik Ders Notları
Fatih Computer Society
2 Yanıt Yanıtla Favorilere Ekle 0
Hakkında
Konum: İstanbul,Büyükçekmece
Forum İmzası:
http://www.fatihcs.org
Temel Bilgiler ve İstatistikler
Aktiflik: Şu anda DH'de değil
Son Giriş: 16 yıl önce
Son Mesaj Zamanı: 16 yıl
Mesaj Sayısı: 12
Gerçek Toplam Mesaj Sayısı: 15
İkinci El Bölümü Mesajları: 0
Konularının görüntülenme sayısı: 609 (Bu ay: 9)
Toplam aldığı artı oy sayısı: 0 (Bu hafta: 0)
En çok mesaj yazdığı forum bölümü: Web Tasarım - Programlama
Mesajları
İkinci El Referansları
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız