Поиск по названию с отчётом.

[Jleksern]

Пожалуйста подправьте

Идея заключается в том что при нажатии на кнопку будет прятаться окно (с названием вписано в edit), ещё раз при нажатии на эту кнопку, показывается спрятанное окно.
Код работает нормально когда название окна находит.
Как исправить и чтоб сообщало что окно не было найдено?

if ShowWindow(FindWindow(nil, PChar(sEdit2.Text) ), sw_show) then
begin
ShowWindow(FindWindow(nil, PChar(sEdit2.Text)), sw_hide) ;
smemo1.Lines.Add('Окно '+sedit2.Text+' было скрыто от Ваших глаз!')
end
else
smemo1.Lines.Add('Окно '+sedit2.Text+' показано!') ;

P.S. Знаю я в коде тупанул, но главное что он работает с горем пополам, а для меня это уже прогресс
Спасибо.

[FaTaL]

Функция FindWindow вернёт Handle найденного окна, если Handle < 0 then окно не найдено.

[Jleksern]

а можно пожалуйста по подробнее русским языком.
Я не очень давно в этим всем познакомился.
Как конкретно воспользоваться вашим советом?

[FaTaL]

if FindWindow(nil, PChar(sEdit2.Text)) > 0 then
ShowMessage ('Окно найдено') else
ShowMessage ('Окно не найдено');

[Jleksern]

да но, не делает основную задачу - СПРЯТАТЬ и ПОКАЗАТЬ окно которое название в sedit2.text.
При этом если спрятало окно, оно сообщает в memo что оно спрятало, а если оно окно показало - то так и пишется что окно показано.
Если не нашло окно оно пишет что не найдено окно.

[Hacker19_90]

так! Точно не уверен

var
    h: hWnd;
{........................................}
{........где-то в теле..............}
h := FindWindow(nil, PChar(sEdit2.Text));
if h > 0 then
begin
    if IsIconic(h) then
    begin
        ShowWindow(h, sw_show) ;
        smemo1.Lines.Add('Окно '+sedit2.Text+'было развёрнуто!')
    end
    else
    begin
        ShowWindow(h, sw_hide) ;
        smemo1.Lines.Add('Окно '+sedit2.Text+'было свёрнуто!')
    end;
end
else
    ShowMessage ('Окно не найдено');

[Jleksern]

Хакер, да, но трабла есть.
Работает вот так.
При отсутствии нужного имя - сообщает что не найдено. ОК.
Если находит тогда делает его невидимым его. Всё Ок.
Но если попробовать "показать" окно которое мы сделали невидемым тогда выполняется опять это, почему-то.

        ShowWindow(h, sw_hide) ;
        smemo1.Lines.Add('Окно '+sedit2.Text+'было свёрнуто!')

и так пишется постояно пока в процессе весит окно.
Если я процесс с невидимым окном убью тогда будет писаться ОКНО НЕ НАЙДЕНо.
(Я так подробно написал что было более яснее).

И ещё одно... Спасибо всем за помощь)))

Я буду побывать своим ходом наладить. Но не думаю что получится. По этому тема ещё актуальна.

[Hacker19_90]

Так а попробуй заменить IsIconic
на IsWindowVisible
Как то так

var
    h: hWnd;
{........................................}
{........где-то в теле..............}
h := FindWindow(nil, PChar(sEdit2.Text));
if h > 0 then
begin
    if IsWindowVisible(h) = 0 then
    begin
        ShowWindow(h, sw_show) ;
        smemo1.Lines.Add('Окно '+sedit2.Text+'было показано!')
    end
    else
    begin
        ShowWindow(h, sw_hide) ;
        smemo1.Lines.Add('Окно '+sedit2.Text+'было спрятано!')
    end;
end
else
    ShowMessage ('Окно не найдено');

[Jleksern]

Именно так если так как в вашем коде тогда не компилирует.
[Error] Unit1.pas(600): Incompatible types
-------
Если же просто с прошлого примера и заменить IsIconic на IsWindowVisible.
Компилируется но не прячет.
А в memo пишет "Окно HD - Блокнот было показано!"

[Hacker19_90]

Чёт нифига не понял!
Где не соответствие типов?
Строчку скопируйте покажите!