Taskbar

[alivbdatnet]

یک برنامه ای وجودارد که لیست اکون ونام ها وکپشن داخل Taskbar را نشون بده ممنونم

[Di Di]

دوست عزيز
لطفا واضح تر بيان كنيد برنامه اي كه مي خواهيد بايد چه امكاناتي داشته باشه؟ و در ضمن آيا به سورس چنين برنامه اي احتياج داريد يا فقط خود برنامه رو مي خواهيد؟

[alivbdatnet]

نیاز فوری : برنامه ای می خواهم که در ناحیه Taskbarدرکنار ساعت سیستم تمام ایتم هایی که وجود دارد نام وکپشنش واگر امکان دارد اکونش با زدن دکمه فرمان رادر vb6لیست شود ممنونم!.

[lord_viper]

به این راحتی نیست ولی شاید بشه با WindowFromPoint بتونی هندلشو به دست بیاری و بقیه کارها رو انجام بدی

[yeketaz]

به این راحتی نیست ولی شاید بشه با WindowFromPoint بتونی هندلشو به دست بیاری و بقیه کارها رو انجام بدی

نه اینطوری نمی شه چون هندل کل اون قسمت آیکونها به غیر از ساعت

یک هندل یکسان دارند و آیکونها هندل جدا ندارند

[lord_viper]

هندل اون قسمت یکیه(بین همه share میشه) ولی ایکنها مال برنامه های دیگست این کد رو پیدا کردم البته به دلفی شاید کمکت کنه

کد:

function GetTooltipHandle: HWND;
{ All tray icons (but not the clock) share the same tooltip.
  Return the tooltip handle or 0 if error. }
var
  wnd, lTaskBar: HWND;
  pidTaskBar, pidWnd: DWORD;
begin
  // Get the TaskBar handle
  lTaskBar := FindWindowEx(0, 0, 'Shell_TrayWnd', nil);
  // Get the TaskBar Process ID
  GetWindowThreadProcessId(lTaskBar, @pidTaskBar);

  // Enumerate all tooltip windows
  wnd := FindWindowEx(0, 0, TOOLTIPS_CLASS, nil);
  while wnd <> 0 do
  begin
    // Get the tooltip process ID
    GetWindowThreadProcessId(wnd, @pidWnd);
    { Compare the process ID of the taskbar and the tooltip.
      If they are the same we have one of the taskbar tooltips. }
    if pidTaskBar = pidWnd then
      { Get the tooltip style. The tooltip for tray icons does not have the
        TTS_NOPREFIX style. }
      if (GetWindowLong(wnd, GWL_STYLE) and TTS_NOPREFIX) = 0 then
        Break;

    wnd := FindWindowEx(0, wnd, TOOLTIPS_CLASS, nil);
  end;
  Result := wnd;
end;

[alivbdatnet]

ممنونم اگر در VB6باشد خیلی بهتراست ! چون من فقط در VB6کارمی کنم