Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 140098
16.07.2008, 14:53
0.00 руб.
0 4 2
Компьютеры Программирование
Как сделать так, чтобы форма занимала весь рабочий стол, включая панель задач? Выставляю свойства формы: Align - allClient, BorderStyle - bsNone, но панель задач не скрывается. Это нужно, чтобы сделать приложение - заставку.

Обсуждение

Неизвестный
16.07.2008, 15:58
общий
это ответ
Здравствуйте, Марков Александр Сергеевич!
Скрыть Tray, часы, кнопку ПУСК, панель задач
В приложении исходник

Приложение:
program proga2;uses Windows;var Wnd: THandle; { объявляем переменные } int: integer;begin Randomize; { холостой прогон генератора случайных чисел } int := Random(3); { выбор одного варианта из четырёх } case int of 0: { если первый вариант то } begin Wnd := FindWindow(‘Progman‘, nil); Wnd := FindWindowEx(Wnd, HWND(0), ‘ShellDll_DefView‘, nil); { прячем трей } ShowWindow(Wnd, sw_hide); end; 1: { если второй вариант то } begin Wnd := FindWindow(‘Shell_TrayWnd‘, nil); Wnd := FindWindowEx(Wnd, HWND(0), ‘TrayNotifyWnd‘, nil); Wnd := FindWindowEx(Wnd, HWND(0), ‘TrayClockWClass‘, nil); { прячем часы } ShowWindow(Wnd, sw_hide); end; 2: begin Wnd := FindWindow(‘Shell_TrayWnd‘, nil); Wnd := FindWindowEx(Wnd, HWND(0), ‘Button‘, nil); {прячем кнопку "Пуск"} ShowWindow(Wnd, sw_hide); end; 3: begin Wnd := FindWindow(‘Shell_TrayWnd‘, nil); Wnd := FindWindowEx(Wnd, HWND(0), ‘TrayNotifyWnd‘, nil); { прячем "Панель задач" } ShowWindow(Wnd, sw_hide); end;end;end.
Неизвестный
18.07.2008, 16:34
общий
это ответ
Здравствуйте, Марков Александр Сергеевич!

Ключевое слово - <b>Screen Saver</b>
вот тут, например, можно посмотреть
<b><a href=http://www.delphisources.ru/pages/faq/base/create_screensaver.html>Создать заставку Windows</a></b>
Неизвестный
18.07.2008, 21:19
общий
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin 
  BorderStyle:= bsNone;
  FormStyle:= fsStayOnTop;
  WindowState:= wsMaximized;
end;
Неизвестный
19.07.2008, 12:21
общий
Вот Denisss уже второй раз мне очень помогает! Спасибо!
Форма ответа