+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : سؤال بخصوص التلاعب فى البرامج الاخرى...؟ (/showthread.php?tid=5197)
الصفحات:
1
2
سؤال بخصوص التلاعب فى البرامج الاخرى...؟ - ALmuhhnad - 10-05-2013
مواضيع ذات صلة :
كيف أحصل على أى مقبض لنافذة
كيف اعرف مقبض النافذة واسم القسم classname والنافذة المفعلة focusedhand و ground
سؤال بخصوص التلاعب فى البرامج الاخرى...؟ - karika2 - 17-05-2013
أخى العزيز ..مازلت بحاول ولكن أيضا المحاولة باتت بالفشل بالرغم من انى مشيت مظبوط وعند الضفط لا يخفى البرنامج اليك السورس فى المرفقات همسة( التجربة على برنامج ياهو ماسنجر)
سؤال بخصوص التلاعب فى البرامج الاخرى...؟ - ALmuhhnad - 18-05-2013
وعليكم السلام ورحمة الله وبركاتة
أخي .. واضح من كتابتك للكود انك تكتب الاكواد دون ان تعرف ما وضيفتها وكيفية عملها وهذا خطأ ...
لذلك ترى نفسك عاجز عن جلب اسم النافذة او الـ كلاس الخاص بها وهي لا تتعدا 3 اسطر , لذلك انصحك
قبل ان تعتمد اي كود في برنامج ان تعرف ماذا يفعل وماذا لا يفعل وكيف يعمل ...
بالنسبة لأوامر إخفاء نافذة الياهو هذه :
PHP كود :
var
HandleWindow : THandle;
begin
HandleWindow := FindWindow('','*****BuddyMain');
ShowWindow(HandleWindow,SW_HIDE)
end;
يجب ان تحصل على اسم النافذة ... وبعد ذلك تضعه في البارمتر IpWindowName , يتهئي لي
ان القيمة التي وضعتها خاص بالـ IpClasseName .
قمت بتعديل الكود وضبطه تفضل :
PHP كود :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, jpeg;
type
TForm1 = class(TForm)
tmr1: TTimer;
Edit1: TEdit;
Edit: TEdit;
lbl1: TLabel;
lbl2: TLabel;
img1: TImage;
btn1: TButton;
Edit11: TEdit;
img2: TImage;
procedure tmr1Timer(Sender: TObject);
procedure img1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.tmr1Timer(Sender: TObject);
var
p: TPoint ;
hWin:THandle;
CN: PChar;
Title : string;
sLen : Integer;
begin
GetCursorPos(p);
hWin := WindowFromPoint(p);
Caption := 'THandle : ' + IntToHex(hWin,8);
GetMem(CN,250);
Windows.GetClassName(hWin,CN,250);
Edit1.Text := CN;
GetWindowText(hWin,PAnsiChar(Title),250);
Edit.Text := Title;
sLen := GetWindowTextLength(hWin);
SetLength(Title,sLen);
GetWindowText(hWin,PChar(Title),sLen + 1);
Edit.Text := Title;
end;
procedure TForm1.img1Click(Sender: TObject);
var
HandleWindow : THandle;
begin
HandleWindow := FindWindow('*****BuddyMain','');
ShowWindow(HandleWindow,SW_HIDE)
end;
end.
سؤال بخصوص التلاعب فى البرامج الاخرى...؟ - karika2 - 04-05-2014
شكراّ أخوانى على الــمشاركة وبعد قرائة الردود بشكل جيد جعلتة الامر أكثر سهولة