我想实现的功能是创建一个服务程序，然后在服务Start时动态创建一个窗体Form，然后把Form缩小时变成TrayIcon放在Windows托盘上。

我在服务程序的OnStart事件中写到

Started := True;  writeWorkLog('serve2   start');     // 写日志  Svcmgr.Application.CreateForm(TForm1,  Form1);  Form1.show;

日志过程为：

procedure writeWorkLog(sqlstr: string);var  filev: TextFile;  ss: string;begin  sqlstr:=DateTimeToStr(Now)+' Log: '+sqlstr;  ss:='d:\RunLog.txt';  if FileExists(ss) then  begin    AssignFile(filev, ss);    append(filev);    writeln(filev, sqlstr);  end else begin    AssignFile(filev, ss);    ReWrite(filev);    writeln(filev, sqlstr);  end;  CloseFile(filev);end;

但是Form1根本就不Show, 而日志中显示已经到Startg过程里。而我测试Form1.Showing为True，说明窗体还是显示了。

然后我在Form1的OnCreate事件中测试，日志文件都有显示到事件里来了，但就是不显示。

后来我在Form1中放了一个Label，在Form1的OnCreate事件中给Label.Caption重新赋值，再打印Label.Caption到txt内，发现Label的Caption已经修改了。

其实Form是显示出来了，只是在服务里启动的，屏幕上不显示。据说以前XP和以前的系统的可以，现在换成Win7了就不行了。

据说从Vista起，Windows的内核针对服务的桌面交互问题做了修改，服务所运行的帐号和当前登录的用户的帐号的桌面是独立的，所以不能够在桌面显示服务里面的窗体了。

一般这个时候会单独开启一个空的桌面提示你对交互窗体操作的。

你可以在服务的属性当中，把服务的属性，【登录】，【登录身份】改成桌面用户再试试看。

Windows Vista以前，服务默认的账户是System，桌面与当前交互桌面共享，Vista之后已经失效了。