fen
21.02.2007, 14:21
Захотел написать программку, каторая бы скрывала все окна, заголовки каторых начинаются на ==
Приведу пример, того что сейчас есть:
procedure TForm1.Button1Click(Sender: TObject);
var
h: HWND;
begin
h := findwindow(nil,'== любой текст');
if h <> 0 then
SetWindowPos(h, SW_HIDE, 1, 1, 20, 20, SWP_HIDEWINDOW);
end;
По примеру видно, что по нажатию кнопки, все окна, заголовки каторых == любой текст скроются, но нужно чтобы только по первым двум символам == заголовка скрывалось окно. Как это реализовать, подскажите кто знает...
Приведу пример, того что сейчас есть:
procedure TForm1.Button1Click(Sender: TObject);
var
h: HWND;
begin
h := findwindow(nil,'== любой текст');
if h <> 0 then
SetWindowPos(h, SW_HIDE, 1, 1, 20, 20, SWP_HIDEWINDOW);
end;
По примеру видно, что по нажатию кнопки, все окна, заголовки каторых == любой текст скроются, но нужно чтобы только по первым двум символам == заголовка скрывалось окно. Как это реализовать, подскажите кто знает...