VPF::Вопрос по коду. - Форум программистов

ProgrammistDelphi

Дата 25.5.2005, 10:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 19.1.2005

Репутация: нет
Всего: нет

Если кто работал с функцией EnumWindows подскажите

Код



type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Timer1: TTimer;
  private
    {Private declarations}
  public
    Procedure Activ();
    Function ObrabotkaOkna(Des:hwnd; Lp: LParam): Boolean;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation



//пишу функцию косвенного вызова 
Function TForm1.ObrabotkaOkna(Des:hwnd; LP: LParam): Boolean;
Begin
if  (form1.Handle<>des) then //если дескриптор не равен идентификатору окна моего приложения, я сворачиваю все окно
  Begin
    ShowWindow(des,SW_MINIMIZE); 
    result:=true;
  End;
end;


Procedure TForm1.Activ();
Begin
  EnumWindows(@TForm1.ObrabotkaOkna,LongInt(Self));
end;

Функция EnumWindows передает дискриптор окна, но почему то ничего не сворачивается

И есче Какие параметры нужно указать для функции SendMessage() чтобы свернуть нужное окно

SendMessage(Дескриптор,Сообщение,0,0) или

SendMessage(Дескриптор,SW_MINIMIZE,1,0)

так пробывал не работает.

dvamaster

Дата 29.5.2005, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 2
Всего: 10

Вся проблема в том, что винда воспринимает C++'ный порядок передачи параметров!

Посему выглядеть функция ObrabotkaOkna должна так:

Код


//пишу функцию косвенного вызова 
Function TForm1.ObrabotkaOkna(Des:hwnd; LP: LParam): Boolean; stdcall;
Begin
if  (form1.Handle<>des) then //если дескриптор не равен идентификатору окна моего приложения, я сворачиваю все окно
  Begin
    ShowWindow(des,SW_MINIMIZE); 
    result:=true;
  End;
end;

то есть stdcall надо было добавить!

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »