لطفا برای API GetClassName در دلفی 7 یک مثال عملی بزنین

[Developer Programmer]

لطفا برای API زیر یک مثال کامل در دلفی 7 بزنین
GetClassName

[مهدی کرامتی]

آقای زوار، تیتر تاپیک تان گویا نیست.

تیتری مانند "نیاز به مثال درباره تابع GetClassName در API" میتواند تیتر خوبی باشد.

عدم انتخاب یک تیتر مناسب و گویا، ضمن زیر پا گذاشتن قوانین سایت باعث میشود دیگران تاپیک شما را نخوانند و شما شانس کمتری برای جواب گرفتن داشته باشید.

تاپیک از این گویا تر ؟؟
طفل معصوم عین سوال رو گذاشته رو تاپیک دیگه :mrgreen:

[houshmand]

تاپیک از این گویا تر ؟؟
طفل معصوم عین سوال رو گذاشته رو تاپیک دیگه

عزیز یک بار ویرایش کرده :mrgreen: بعد از آن

[Developer Programmer]

:oops: خوب برام یه برنامه چند خطی بدین که توش از این تابع هم استفاده شده باشه ...
مرسی

[مهدی کرامتی]

این یک مثال برای نمایش/مخفی کردن Tray ویندوز:

procedure hideTrayWindow(visi:boolean);
Var
Tray, Child : hWnd;
C : Array[0..127] of Char;
S : String;

Begin
Tray := FindWindow('Shell_TrayWnd', NIL);
Child := GetWindow(Tray, GW_CHILD);
While Child <> 0
do Begin
If GETCLASSNAME(Child, C, SizeOf(C)) > 0
Then Begin
S := StrPAS(C);
If UpperCase(S) = 'TRAYNOTIFYWND'
then begin

If Visi
then ShowWindow(Child, 1)
else ShowWindow(Child, 0);
end;
End;
Child := GetWindow(Child, GW_HWNDNEXT);
End;
End;
نحوه استفاده:

hideTrayWindow(false);
یا:

hideTrayWindow(true);

[Developer Programmer]

مرسی عزیز