| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
список заголовков окон [D7, WinXP]
lehich © (2004-04-07 11:07:00)имеем: открыто несколько виндовых окон
нужно: получить заголовки всех открытых окон
каким образом это осуществить???
Заранее премного благодарен...
Игорь Шевченко (2004-04-09 10:15:00) [1]lehich © (09.04.04 08:41)
> почему внизу в окне ошибко столько надписей выводится???
Очевидно потому, что у меня нету D7 ? :)
lehich (2004-04-09 09:58:00) [2]угумс... D7 ругается... хотя всё работает замечательно
DVM (2004-04-09 09:06:00) [3]Небезопасный код, указатели. Это Delphi7 что-ли ругается? В принципе ничго страшного особо нет. D6 на то же самое молчит.
lehich (2004-04-09 08:41:00) [4]Игорь Шевченко респект..)))) как раз то, что нужно...))))) и просто ради проформы спрошу... почему внизу в окне ошибко столько надписей выводится???
цитирую:
Build
[Warning] HSWinUtils.pas(175): Unsafe type 'Pointer'
[Warning] HSWinUtils.pas(179): Unsafe type 'Pointer'
[Warning] HSWinUtils.pas(181): Unsafe type 'LPWSTR'
[Warning] HSWinUtils.pas(181): Unsafe type 'LPWSTR'
[Warning] HSWinUtils.pas(205): Unsafe code '@ operator'
[Warning] HSWinUtils.pas(208): Unsafe code '@ operator'
[Warning] HSWinUtils.pas(217): Unsafe type 'LPWSTR'
[Warning] HSWinUtils.pas(218): Unsafe type 'LPWSTR'
[Warning] HSWinUtils.pas(220): Unsafe code '@ operator'
[Warning] HSWinUtils.pas(222): Unsafe code '@ operator'
[Warning] HSWinUtils.pas(225): Unsafe code '@ operator'
[Warning] HSWinUtils.pas(227): Unsafe type 'lpServer: PWideChar'
[Warning] HSWinUtils.pas(227): Unsafe type 'lpNameBuffer: PWideChar'
[Warning] HSWinUtils.pas(232): Unsafe type 'Pointer'
[Warning] HSWinUtils.pas(234): Unsafe code '@ operator'
[Warning] HSWinUtils.pas(236): Unsafe code '@ operator'
[Warning] HSWinUtils.pas(239): Unsafe code '@ operator'
[Warning] HSWinUtils.pas(241): Unsafe type 'Buffer: Pointer'
[Warning] HSWinUtils.pas(248): Unsafe type 'PWideChar'
[Warning] HSWinUtils.pas(254): Unsafe type 'JoinName: PWideChar'
[Warning] HSWinUtils.pas(255): Unsafe type 'JoinName: PWideChar'
[Warning] HSWinUtils.pas(256): Unsafe type 'JoinName: PWideChar'
[Warning] main.pas(101): Unsafe type 'PWideChar'
[Warning] main.pas(107): Unsafe type 'Pointer'
[Warning] main.pas(113): Unsafe type 'Ptr32'
[Warning] main.pas(122): Unsafe type 'Ptr32'
[Warning] main.pas(124): Unsafe type 'Ptr32'
[Warning] main.pas(125): Unsafe type 'Ptr32'
[Warning] main.pas(126): Unsafe type 'Ptr32'
[Warning] main.pas(131): Unsafe type 'Ptr32'
[Warning] main.pas(156): Unsafe type 'Ptr32'
[Warning] main.pas(157): Unsafe type 'Ptr32'
[Warning] main.pas(158): Unsafe type 'Ptr32'
[Warning] main.pas(160): Unsafe type 'Ptr32'
[Warning] main.pas(161): Unsafe type 'Ptr32'
[Warning] main.pas(174): Unsafe type 'Ptr32'
[Warning] main.pas(187): Unsafe code '@ operator'
[Warning] main.pas(192): Symbol 'RaiseLastWin32Error' is deprecated
[Warning] main.pas(198): Unsafe code '@ operator'
[Warning] main.pas(199): Unsafe code '@ operator'
[Warning] main.pas(199): Unsafe type 'ATargetProcessParametersPointer: Pointer'
[Warning] main.pas(199): Unsafe type 'Ptr32'
[Warning] main.pas(201): Symbol 'RaiseLastWin32Error' is deprecated
[Warning] main.pas(203): Unsafe type 'Pointer'
[Warning] main.pas(206): Unsafe type 'Ptr32'
[Warning] main.pas(208): Unsafe type 'ATargetProcessParametersPointer: Pointer'
[Warning] main.pas(209): Unsafe code '@ operator'
[Warning] main.pas(212): Symbol 'RaiseLastWin32Error' is deprecated
[Warning] main.pas(224): Unsafe type 'Buffer: PWideChar'
[Warning] main.pas(225): Unsafe code '@ operator'
[Warning] main.pas(228): Symbol 'RaiseLastWin32Error' is deprecated
[Warning] main.pas(245): Unsafe type 'Pointer'
[Warning] main.pas(251): Unsafe type 'Pointer'
[Warning] main.pas(254): Unsafe code '@ operator'
[Warning] main.pas(255): Unsafe code '@ operator'
[Warning] main.pas(258): Unsafe type 'EnumProc: Pointer'
[Warning] main.pas(277): Unsafe type 'Pointer'
[Warning] main.pas(283): Unsafe type 'Pointer'
[Warning] main.pas(286): Unsafe code '@ operator'
[Warning] main.pas(287): Unsafe code '@ operator'
[Warning] main.pas(290): Unsafe type 'EnumProc: Pointer'
[Warning] main.pas(298): Unsafe type 'PChar'
[Warning] main.pas(298): Unsafe type 'Pointer'
[Warning] main.pas(300): Unsafe type 'Data: Pointer'
[Warning] main.pas(300): Unsafe typecast of 'Pointer' to 'TStrings'
[Warning] main.pas(301): Unsafe type 'ItemName: PAnsiChar'
[Warning] main.pas(305): Unsafe type 'PChar'
[Warning] main.pas(307): Unsafe type 'ItemName: PAnsiChar'
[Warning] main.pas(311): Unsafe type 'PChar'
[Warning] main.pas(312): Unsafe type 'PChar'
[Warning] main.pas(314): Unsafe type 'Pointer'
[Warning] main.pas(316): Unsafe type 'Data: Pointer'
[Warning] main.pas(316): Unsafe typecast of 'Pointer' to 'TStrings'
[Warning] main.pas(317): Unsafe type 'lpLanguageGroupString: PAnsiChar'
[Warning] main.pas(317): Unsafe type 'lpLanguageGroupNameString: PAnsiChar'
[Warning] main.pas(332): Unsafe code '@ operator'
[Warning] main.pas(333): Unsafe typecast of 'TStrings' to 'Integer'
[Warning] main.pas(336): Unsafe type 'PChar'
[Warning] main.pas(342): Unsafe code '@ operator'
[Warning] main.pas(342): Unsafe typecast of 'TStrings' to 'Integer'
[Warning] main.pas(368): Symbol 'Win32Check' is specific to a platform
[Warning] main.pas(368): Unsafe code '@ operator'
[Warning] main.pas(369): Unsafe typecast of 'TStrings' to 'Integer'
[Warning] main.pas(370): Symbol 'Win32Check' is specific to a platform
[Warning] main.pas(370): Unsafe code '@ operator'
[Warning] main.pas(372): Unsafe typecast of 'TStrings' to 'Integer'
[Warning] main.pas(378): Symbol 'Win32Check' is specific to a platform
[Warning] main.pas(378): Unsafe code '@ operator'
[Warning] main.pas(381): Symbol 'Win32Check' is specific to a platform
[Warning] main.pas(381): Unsafe code '@ operator'
[Warning] main.pas(389): Unsafe type 'Pointer'
[Warning] main.pas(403): Unsafe type 'Data: Pointer'
[Warning] main.pas(403): Unsafe typecast of 'Pointer' to 'TStrings'
[Warning] main.pas(403): Unsafe typecast of 'HWND' to 'TObject'
[Warning] main.pas(416): Unsafe code '@ operator'
[Warning] main.pas(416): Unsafe typecast of 'TStrings' to 'Integer'
[Warning] main.pas(420): Unsafe type 'PChar'
[Warning] main.pas(426): Unsafe code '@ operator'
[Warning] main.pas(427): Unsafe typecast of 'TStrings' to 'Integer'
[Warning] main.pas(439): Unsafe typecast of 'TObject' to 'Integer'
[Warning] main.pas(452): Unsafe type 'PChar'
[Warning] main.pas(473): Unsafe typecast of 'TObject' to 'HWND'
[Warning] main.pas(496): Unsafe type 'PChar'
[Warning] main.pas(507): Unsafe type 'Pointer'
[Warning] main.pas(509): Unsafe type 'Buffer: Pointer'
[Warning] main.pas(510): Unsafe type 'Buffer: Pointer'
[Warning] main.pas(512): Unsafe code 'GetMem'
[Warning] main.pas(512): Unsafe type 'Buffer: Pointer'
[Warning] main.pas(514): Unsafe type 'Buffer: Pointer'
[Warning] main.pas(516): Unsafe type 'Buffer: Pointer'
[Warning] main.pas(518): Unsafe typecast of 'Cardinal' to 'TObject'
[Warning] main.pas(521): Unsafe code 'FreeMem'
[Warning] main.pas(521): Unsafe type 'Buffer: Pointer'
[Warning] main.pas(548): Unsafe typecast of 'TObject' to 'Cardinal'
[Warning] main.pas(568): Unsafe type 'PChar'
[Warning] main.pas(589): Unsafe typecast of 'TObject' to 'HWND'
Игорь Шевченко (2004-04-08 10:20:00) [5]
> нужны только окна, которые видны в панели задач...
http://www.schevchenko.net.ru/SRC/EnumFunctions_60.zip
lehich (2004-04-08 09:50:00) [6]нужны только окна, которые видны в панели задач...
Diamond Cat (2004-04-07 23:39:00) [7]
> хы... откуда-то взялось теперь значение "Program Manager"
> хотя таких окон и нет впомине
интересно как вы без него обходитесь?
1)Вам нужно найти названия всех видимых окон? Тогда еще следует ввести проверку на их видимость iswindowvisible
2)Дочерние окна вас тоже интересуют? GetWindow(hwnd, gw_Owner)
3)Окна без заголовков вам нужны
Короче куча вопросов, по вашему вопросу :о)
lehich (2004-04-07 17:36:00) [8]хы... откуда-то взялось теперь значение "Program Manager" хотя таких окон и нет впомине...
lehich (2004-04-07 17:32:00) [9]I/O error 105... ошибка на строке:
Writeln(Buf);
Polevi (2004-04-07 16:38:00) [10]program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
function EnumWindowsProc(hwnd:THandle; lParam:Cardinal):boolean;stdcall
var
Buf:array[0..1024] of char;
begin
GetWindowText(hwnd,Buf,1024);
CharToOEMBuff(Buf,Buf,Length(Buf));
if Buf<>'' then
Writeln(Buf);
Result:=true;
end;
begin
EnumWindows(@EnumWindowsProc,0);
Readln;
end.
lehich (2004-04-07 16:02:00) [11]если не сложно можно поподробнее... plz....
Игорь Шевченко (2004-04-07 12:26:00) [12]EnumWindows + GetWindowText ?
| |
