ServiceApplication With Visiable Form

window   station   和desktop。它们主要是用于服务程序，一般的应用程序不必使用它们。它们可以用来对服务进行保护。运行在不同的window   station   或不同的desktop下的应用程序，不能互相发送消息、挂钩、使用同一个clipboard等等。主要是出于安全的目的。  
   
   
  服务程序一般使用的是LocalSystem帐户，拥有自己的window   station，和Default桌面，这个window   station是不能于用户交互的，也就是说，你不能在上面显示窗口，它也不接受用户的鼠标、键盘等输入。  
   
  当使用用户帐户登录以后，看到的桌面，是WinSta0（window   station）下的Default（desktop）.    
  WinSta0下有3个桌面：  
  WinLogon   ：以Logon对话框的形式出现.当用户登录以后,WinLogon.exe切换到Default   desktop.  
  Default     ：这是Explorer.exe和所有用户程序窗口出现的地方，也就是我们通常使用windows看见的地方.应用程序就运行在这个桌面上  
  Screen   saver   ：系统空闲的时候，运行屏保的桌面.  
   
  可以用下面的方法解决你的问题,使你的服务运行在WinSta0（window   station）下的Default（desktop）:  
  桌面-->我的电脑-->右键,在弹出的菜单中选择"管理"-->在左面的一栏中找到"服务和应用程序"-->点击"服务"-->到右面找到你的服务，双击,在弹出的对话框中修改属性，选择“登录”标签页的“允许服务与桌面交互”，那么该服务就使用的是WinSta0（window   station）下的Default（desktop）.   你也就可以与你的服务进行交互操作了。  
   
  但是,做这些之前要考虑清楚。因为，这样你的服务就有安全问题了,任何其他的程序都可以向它发送消息.比如普通程序因为跟你的服务在同一个desktop下,就可以给你发送窗口的关闭消息,迫使退出消息循环,结束服务.或者对你的服务进行键盘、鼠标挂钩（hook）。

 

以上内容转载自互联网，明白了原理，接下来贴一下自己写的代码备忘，备忘

 

 

program  ServiceDemo;

uses
  SvcMgr,
  SysUtils,
  Windows,
  ServiceUnit  in   ' ServiceUnit.pas '   { DelphiServiceDemo: TService } ,
  FormUnit  in   ' FormUnit.pas '   { DelphiServiceForm } ;

{ $R *.RES }

var
  hwinsta, hwinsta_current: Integer;
  hdesk, hdesk_current: Integer;
begin


  hwinsta_current : =  GetProcessWindowStation;
  hdesk_current : =  GetThreadDesktop(GetCurrentProcessId);

  hwinsta : =  OpenWindowStation( ' winsta0 ' , False, WINSTA_ENUMDESKTOPS  or  WINSTA_READATTRIBUTES  or
    WINSTA_ACCESSCLIPBOARD  or  WINSTA_CREATEDESKTOP  or  WINSTA_WRITEATTRIBUTES  or  WINSTA_ACCESSGLOBALATOMS  or
    WINSTA_EXITWINDOWS  or  WINSTA_ENUMERATE  or  WINSTA_READSCREEN);
  SetProcessWindowStation(hwinsta);

  hdesk : =  OpenDesktop( ' default ' ,  0 , False, 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);
  SetThreadDesktop(hdesk);

  SetProcessWindowStation(hwinsta_current);
  SetThreadDesktop(hdesk_current);
  
  Application.Initialize;
  Application.CreateForm(TDelphiServiceDemo, DelphiServiceDemo);
  Application.CreateForm(TDelphiServiceForm, DelphiServiceForm);
  Application.Run;
  
  CloseWindowStation(hwinsta);
  CloseDesktop(hdesk);
end .