[Slackerok]

Всем привет! Я новичок в Delphi) Прошу помощи экспертов. Мне нужно добавить процедуру чтобы свернулись/скрылись все окна раб. стола кроме своей формы.
Допустим играет Winamp или просматриваю картинки. Я запускаю project.exe и все активные окна сворачиваются кроме project2.exe
Помогите сделать плиз) Нашел в Google такой код:

Код:

var WH:HWnd;
begin
WH:=Handle;
 repeat
  WH:=GetNextWindow(WH,GW_HWNDNEXT);
  if (GetParent(WH)=0)and(not IsIconic(WH))and(IsWindowVisible(WH)) then
  PostMessage(WH,WM_SYSCOMMAND,SC_MINIMIZE,0);
 until WH=0;

Но здесь сворачиваются все окна.

[angvelem]

Сравнивай найденный хендл со своим и не трогай или после сворачивания всех своё разверни.

[Slackerok]

Спасибо за оперативный ответ! Я понял в теории как сделать, вот практика немного хромает(... Если можете объясните пожалуйста поподробнее с примерами кода.

[angvelem]

Проверил, с этим кодом сворачиваются все окна, кроме запущенного приложения.

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  Wnd : HWND;
begin
  Wnd := Handle;
  repeat
    Wnd := GetNextWindow(Wnd, GW_HWNDNEXT);
    if (GetParent(Wnd) = 0) and (not IsIconic(Wnd)) and (IsWindowVisible(Wnd)) then
      PostMessage(Wnd, WM_SYSCOMMAND, SC_MINIMIZE, 0);
  until Wnd = 0;
end;

[Slackerok]

Да, но если допустим использовать процедуру с таймером вместе, тогда сворачивается и основная форма... А мне нужно чтобы форма так сказать стояла на месте при любых случаях...

[angvelem]

Причём тут таймер? Код выполняется ДО всего остального.

[Slackerok]

ну да вы правы, но допустим мне нужно чтобы сворачивалось всегда Winamp, или вообще все окна всегда сворачиваются кроме моей формы. Как это сделать? Конечно же легче таймером создать цикл? Нет? Вот в этом цикле при тестах данный код сворачивает все окна, в том числе и нашу форму за них...

[angvelem]

Все сворачиваются кроме запущенного приложения.

[Slackerok]

Код работает, но попробуйте создать цикл с таймером чтобы сворачивание шло допустим каждые 1 секунд, увидите что сворачивается и наша форма. А нам ведь нужно чтобы она не сворачивалась) Вот пример:

[angvelem]

На кой спрашивается это нужно? Хочется извращений, пожалуйста, но такие вещи так не делаются.

[M.A.D.M.A.N.]

Не проще ли на отдельный десктоп перепрыгнуть, как это делает "cureit!"?

[NumLock]

Код:

if (GetParent(Wnd) = 0) and (not IsIconic(Wnd)) and (IsWindowVisible(Wnd)) and (Application.Handle<>Wnd) then

Сообщение от M.A.D.M.A.N.

Не проще ли на отдельный десктоп перепрыгнуть, как это делает "cureit!"?

действительно

[Slackerok]

Сообщение от M.A.D.M.A.N.

Не проще ли на отдельный десктоп перепрыгнуть, как это делает "cureit!"?

Интересно) Можно поподробнее об этом?

[NumLock]

CreateDesktop function (Windows)
CreateProcess function (Windows)

typedef struct _STARTUPINFO {
DWORD cb;
LPTSTR lpReserved;
LPTSTR lpDesktop;
LPTSTR lpTitle;
DWORD dwX;
DWORD dwY;
DWORD dwXSize;
DWORD dwYSize;
DWORD dwXCountChars;
DWORD dwYCountChars;
DWORD dwFillAttribute;
DWORD dwFlags;
WORD wShowWindow;
WORD cbReserved2;
LPBYTE lpReserved2;
HANDLE hStdInput;
HANDLE hStdOutput;
HANDLE hStdError;
} STARTUPINFO, *LPSTARTUPINFO;