VPF::CloseDesktop из главного pas - Форум программистов

chiffa

Дата 24.3.2011, 23:42 (ссылка)

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

Загрузка ...

Опытный

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

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

Добрый день. Изучаю Делфи недавно, столкнулся с работой с Десктопами. А именно: нужно создать новый десктоп, и на нем разместить само окно приложения. Потрусил Интернет. Нашел следующий пример. В основное окно добавляем:

Код


program Project1;

uses
  desktop in 'desktop.pas',
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

Сам desktop.pas

Код


      unit desktop;
       
      interface
       
      implementation
       
      uses
       windows;
       
      var
       OldDesktop: THandle;
       
      procedure SetDesktop;
      var
       hDsk: THANDLE;
      begin
       OldDesktop := GetThreadDesktop(GetCurrentThreadId);
       hDsk:=CreateDesktop('desk',nil,nil,0,
                         DESKTOP_READOBJECTS or DESKTOP_CREATEWINDOW  or DESKTOP_CREATEMENU  or
                         DESKTOP_HOOKCONTROL or DESKTOP_JOURNALRECORD or DESKTOP_JOURNALPLAYBACK or
                         DESKTOP_ENUMERATE or DESKTOP_WRITEOBJECTS or DESKTOP_SWITCHDESKTOP,
                         nil);
       SetThreadDesktop(hDsk);
       SwitchDesktop(hDsk);
       CloseDesktop(hDsk);
      end;
       
      initialization
       SetDesktop;
       
      finalization
       SwitchDesktop(OldDesktop);
       
      end.

Ну и

Код


var
  Form1: TForm1;

implementation

uses desktop;

При закрытии окна хочу назад переключиться на основной Десктоп, в основном окне пишу:

Код


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CloseDesktop(hDsk);
end;

и тут ругается [Error] Unit1.pas(29): Undeclared identifier: 'hDsk'

Так как работаю с Делфи недавно, прошу вашей помощи, что делаю не так? Почему не видит hDsk?...

Snowy

Дата 25.3.2011, 11:47 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Правильно ругается.
Что такое hDsk?
Это внутренняя переменная в SetDesktop.
Как только ты выходишь из SetDesktop, hDsk перестаёт существовать.
Как вариант, можешь сделать hDsk глобальной переменной.

chiffa

Дата 25.3.2011, 12:21 (ссылка)

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

Загрузка ...

Опытный

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

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

Snowy, пасиба! именно так и сделал! smile

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