10-05-2013, 03:41 AM
الصفحات : 1 2
17-05-2013, 10:59 AM
أخى العزيز ..مازلت بحاول ولكن أيضا المحاولة باتت بالفشل بالرغم من انى مشيت مظبوط وعند الضفط لا يخفى البرنامج اليك السورس فى المرفقات همسة( التجربة على برنامج ياهو ماسنجر)
18-05-2013, 04:36 AM
وعليكم السلام ورحمة الله وبركاتة
أخي .. واضح من كتابتك للكود انك تكتب الاكواد دون ان تعرف ما وضيفتها وكيفية عملها وهذا خطأ ...
لذلك ترى نفسك عاجز عن جلب اسم النافذة او الـ كلاس الخاص بها وهي لا تتعدا 3 اسطر , لذلك انصحك
قبل ان تعتمد اي كود في برنامج ان تعرف ماذا يفعل وماذا لا يفعل وكيف يعمل ...
بالنسبة لأوامر إخفاء نافذة الياهو هذه :
على اي اسااس وضعت القيمة "*****BuddyMain" في البارمتر IpWindowName ؟
يجب ان تحصل على اسم النافذة ... وبعد ذلك تضعه في البارمتر IpWindowName , يتهئي لي
ان القيمة التي وضعتها خاص بالـ IpClasseName .
قمت بتعديل الكود وضبطه تفضل :
أخي .. واضح من كتابتك للكود انك تكتب الاكواد دون ان تعرف ما وضيفتها وكيفية عملها وهذا خطأ ...
لذلك ترى نفسك عاجز عن جلب اسم النافذة او الـ كلاس الخاص بها وهي لا تتعدا 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.
04-05-2014, 03:43 PM
شكراّ أخوانى على الــمشاركة وبعد قرائة الردود بشكل جيد جعلتة الامر أكثر سهولة
الصفحات : 1 2