Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > CloseDesktop из главного pas

Автор: chiffa 24.3.2011, 23:42

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

Код


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

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

Автор: chiffa 25.3.2011, 12:21

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