Ступор в repeat ... until

[Vol666]

Уй блин вы меня запутали, итак
h:=FindWindow('xxx',nil);
While h<=0 do
begin
h:=FindWindow('xxx',nil);
ShowWindow(h,SW_HIDE);
Где здесь ошибки и проч. неточности?

Протестировал репит антил, получается бесконечный цикл.

[Пепел Феникса]

перечитайте мой первый пост в этой теме.

[mihali4]

И потом, если WHILE, то
While h>0 do
Судя по вашим постам, вы не совсем разобрались в разнице между REPEAT...UNTIL и WHILE...DO. И в том, как они работают.
И еще раз - не проходите мимо совета Пепел Феникса, а то так и будете крутить бесконечный цикл.

[Vol666]

тогда расскажите об этом побольше, о том что вы рекомендуете, а то каша полная у меня складывается...

[mihali4]

Берем любую книгу по Дельфи и "уперод"...
Не вижу смысла пересказывать элементарные вещи.
Читать вы, вроде бы, умеете...

[Vol666]

Спасибо, за совет

[Vol666]

Гадость получается, скрывает частично все окна в винде вот код:
der:=FindWindow('ххх',nil); //ключевое окно от него оталкиваемся
while der > 0 do //пока есть окна типа der делать следующее
begin
ShowWindow(der,SW_HIDE); //скрывать окно с дескриптором
der:= GetWindow(der, gw_hWndNext); //искать следующее окно, если эти 2 стоки менять местами эфект не меняется...
end;

[Vol666]

А если делать обратную функцию то он открывает все скрытые окна в системе (зрелище ужасное), в чём ошибка???

[Пепел Феникса]

function HideWindows(h:hwnd;i:longint):boolean;stdcall;
var s:string;
begin
 SetLength(s,100);
 GetClassName(h,PChar(s),100);
 SetLength(s, lStrLen(PChar(s)));
 if s='Notepad' then ShowWindow(h,SW_HIDE);
 result:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 EnumWindows(@HideWindows,0);
end;

вот так я скрыл все блокноты
регистр класса(s='Notepad') должен быть точным(или используй смену регистра)