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

Ak47black

Дата 2.1.2008, 18:08 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

Здравствуйте.
Подскажите пожалуйста как элементарно показать форму и потока
Вот такой код

Код


program Project2;

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

var
  hThread : THandle;
  ThID : Cardinal;

{$R *.res}

function MainServiceThread(p:Pointer): DWORD; stdcall;
begin
  Form1:= TForm1.Create(nil);
  Form1.ShowModal;
  Form1.Free;
{  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;}
end;

begin
  hThread:= CreateThread(nil, 0, @MainServiceThread, nil, 0, ThID);
  WaitForSingleObject(hThread, INFINITE);
  CloseHandle(hThread);
end.

Ничего не показывает, но форма создается.

Присоединённый файл ( Кол-во скачиваний: 6 )

SampleService.rar 3,57 Kb

MetalFan

Дата 2.1.2008, 18:56 (ссылка)

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

Загрузка ...

Аццкий Сотона

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

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

намешал все в кучу...

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

There are always someone smarter than you...

Ak47black

Дата 2.1.2008, 20:18 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

Кучи тут нет smile

MetalFan

Дата 2.1.2008, 20:26 (ссылка)

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

Загрузка ...

Аццкий Сотона

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

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

как нет? либо VCL либо нет...

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

There are always someone smarter than you...

OdesitVadim

Дата 5.1.2008, 22:52 (ссылка)

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

Загрузка ...

Новичок

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

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

Показывать формы с сервиса - некрасиво. точнее, форма показывается, но на своем рабочем столе, который не совпадает с рабочим столом пользователя. почему? а дело в том, что сервис начинает работать до того, как пользователь залогинититься.
Что бы формы (тоесть окна) показывать, надо сделать сервис интерактивным. (если писать с VCL, то в свойствах TServices есть соответсвующее свойство).
или работать по другому - создать ещё одно приложение,которое будет иметь формы и будет взаимодействовать с сервисом посредством сокетов или именованных каналов.

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