Главная страницаОбратная связьКарта сайта

Список окон с кнопкой на панели задач

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function GetText(Wnd: HWND): string;
 var
    textlength: Integer;
   Text: PChar;
 begin
   textlength := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
   if textlength = 0 then Result := ""
   else
   begin
     GetMem(Text, textlength + 1);
     SendMessage(Wnd, WM_GETTEXT, textlength + 1, Integer(Text));
     Result := Text;
     FreeMem(Text);
   end;
 end;

 function EnumWindowsProc(Wnd: HWND; lParam: lParam): BOOL; stdcall;
 begin
   Result := True;
   if (IsWindowVisible(Wnd) or IsIconic(wnd)) and
     ((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or
     (GetWindowLong(Wnd, GWL_HWNDPARENT) = GetDesktopWindow)) and
     (GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0) then
     Form1.Listbox1.Items.Add("Handle: " + IntToStr(Wnd) + ",Text:  " + GetText(Wnd));
 end;


 procedure TForm1.Button1Click(Sender: TObject);
 var
   Param: Longint;
 begin
   EnumWindows(@EnumWindowsProc, Param);
 end;

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Список окон с кнопкой на панели задач", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info