какое ограничение?.
выше написано что не стоит создавать окна сервисов в контексте
рабочего стола - оконной станции пользователя
(иначе любой пользователь может взаимодействовать с вашим окном, в том числе и прибить его)
что похоже не знали создатели многих файрволов и антивирусов  //postmessage(FindWindow('имя класса антивируса',nil),WM_QUIT,0,0);
если данное окно нужно только для взаимодействия между потоками и вашим приложением, то создавайте в свое удовольствие, при условии что сервис не интерактивный (винда создаст для вашего процесса, оконную станцию с произвольным именем, что изолирует вашы окна от пользователя). все ваши потоки будут на одном и том же станции/столе что обеспечит нормальное взаимодействие
окошко рекомендую создать на чистом апи а не тянуть с собой forms.
вот вам пример заготовка
| Код |
uses
Messages, Windows, SysUtils;
procedure WNxl; stdcall;
const
TITLE = 'MyClassWxl';
SCREEN_WIDTH = 2;
SCREEN_HEIGHT = 2;
const id_Hot = 0;
var
Handle: hWnd;
function WindowProcedure(Window: hWnd; Message, wParam: Word; lParam: LongInt): LongInt; stdcall;
begin
Result:=0;
case Message of
WM_CREATE:
begin
end;
WM_SIZE:
begin
end;
WM_CLOSE:
begin
PostQuitMessage(0);
Result:=0;
Exit;
end;
WM_KEYDOWN:
begin
end;
WM_KEYUP:
begin
end;
else Result := DefWindowProc(Window, Message, wParam, lParam);
end;
end;
// Create the window
function CreateTheWindow(Width, Height: Integer): hWnd;
var WindowClass: TWndClass;
hInstance: HINST;
Style: Cardinal;
begin
hInstance := GetModuleHandle(nil);
ZeroMemory(@WindowClass, SizeOf(WindowClass));
with WindowClass do
begin
Style := CS_SAVEBITS;;
lpfnWndProc := @WindowProcedure;
cbClsExtra := 0;
cbWndExtra := 0;
hInstance := hInstance;
hIcon := 0;
hCursor := 0;
hbrBackground := 0;
lpszMenuName := '';
lpszClassName := TITLE;
end;
RegisterClass(WindowClass);
Style := WS_OVERLAPPEDWINDOW;
Result := CreateWindowEx(0, TITLE, TITLE, Style, 0, 0, Width, Height, 0, 0, hInstance, nil);
end;
procedure DestroyTheWindow(Wnd: hWnd);
begin
DestroyWindow(Wnd);
UnRegisterClass(TITLE, hInstance);
end;
function WinMain(hInstance: HINST; hPrevInstance: HINST; lpCmdLine: PChar; nCmdShow: Integer): Integer; stdcall;
var Msg : TMsg;
Finished : Boolean;
begin
Finished := False;
while not Finished do
begin
if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
begin
if Msg.Message = WM_QUIT then Finished := True
else
begin
TranslateMessage(msg);
DispatchMessage(msg);
end;
end
else
begin
WaitMessage;
end;
end;
Result := Msg.wParam;
end;
begin
Handle:= CreateTheWindow(SCREEN_WIDTH, SCREEN_HEIGHT);
if Handle=0 then halt(0);
WinMain(hInstance, 0, nil, 0);
DestroyTheWindow(Handle);
end;
end.
......
//это вызвать при старте сервиса (хотя можно и не в отдельном потоке)
hThread2:=CreateThread(nil,0,@WNxl,nil,0,ThID2);
|
|
