Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как использовать свой десктоп, CreateDesktop 
:(
    Опции темы
h2o
Дата 19.2.2007, 09:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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

h2o, попробуй использовать один екзешник в обоих ролях. Как стартер пусть он работает по дефолту, а как то что стартуют - в с лучае если есть какой-то специфический параметр командной строки. (Идея в том чтобы запускать самому себя, но с параметрами, которые позволят в начале dpr-файла определить эту ситуацию)

ни чего  не понял из выше сказанного


--------------------
Я нифига не знаю! мало что понимаю! Помогите тупому... У меня стоит D7!
PM MAIL   Вверх
bems
Дата 20.2.2007, 01:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88
Цитата(h2o @  19.2.2007,  09:11 Найти цитируемый пост)
ни чего  не понял из выше сказанного
Этот вариант тоже оказался слишком сложным (по сравнению с этим)

dpr:
Код

program Project1;

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

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.


pas:
Код

unit desktop;

interface

implementation
uses windows;

procedure SetDesktop;
var hDsk:THANDLE;
begin
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;

end.



Это сообщение отредактировал(а) bems - 20.2.2007, 01:26


--------------------
Обижено школьников: 8
PM MAIL   Вверх
Yanis
Дата 20.2.2007, 09:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 13
Всего: 111
bems
Как и предполагал -- метод работает smile  Осталось разобраться почему не срабатывало у меня smile


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
bems
Дата 21.2.2007, 06:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88
Цитата(Yanis @  20.2.2007,  09:41 Найти цитируемый пост)
Осталось разобраться почему не срабатывало у меня 
покажи код



--------------------
Обижено школьников: 8
PM MAIL   Вверх
h2o
Дата 21.2.2007, 09:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 1
рульно! как всё до идеотизма просто! а ведь и не догадаешься если не знаешь! bems Молодец!

з.ы. а я по подсказке Girder'а ещё вариант сделал, в котором прога сама себя перезапускает в другом десктопе. если куму интересно могу выложить... для ознакомления

--------------------
Я нифига не знаю! мало что понимаю! Помогите тупому... У меня стоит D7!
PM MAIL   Вверх
Yanis
Дата 21.2.2007, 09:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 13
Всего: 111
bems
Я его не сохранил. Всё дело было в том, что я создавал рабочий стол и пытался переключиться на него в файле проекта.
В таком случае не важно в каком порядке идут модули в Uses, т.к. нижеприведённый код всё равно выполнится после инициализации модулей smile 
Код
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;

Мой касяк smile

Добавлено @ 09:41 
Цитата(h2o @  21.2.2007,  10:04 Найти цитируемый пост)
как всё до идеотизма просто!

Видимо это меня и подвело smile


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
bems
Дата 21.2.2007, 18:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88
Цитата(h2o @  21.2.2007,  09:04 Найти цитируемый пост)
а я по подсказке Girder'а ещё вариант сделал, в котором прога сама себя перезапускает в другом десктопе
об этом я и говорил тут



--------------------
Обижено школьников: 8
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0715 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.