C# Windwos服务脱离.Net Framework

解决方案：

1.将C#windows服务改成无窗台的Winform

2.C#的Winform脱离.Net Framework（网上有很多资料，这不讲了）

2.用Delphi编写Windows服务,服务启动时启动C#的Winform程序

3.设置Windows服务“允许服务与桌面交互”

 

部分代码：
1.获取服务文件路径：

 

function TBootCssService122.GetServiceAppPath: String;
Var
  Res  : Longint;
  CurSize : Longint;
begin
  CurSize := 1024;
  SetLength(Result, CurSize);
  Res := GetModuleFilename(GetModuleHandle(nil), PChar(Result), CurSize);
  If (res > curSize) then
  begin
    CurSize := res + 10;
    SetLength(Result, CurSize);
    Res := GetModuleFilename(GetModuleHandle(nil), PChar(Result), CurSize);
  end;
  Setlength(Result, Res);
  Result := ExtractFileDir(Result) + '\';
end;

2.启动C#程序

WinExec(PChar(GetServiceAppPath+'VM\VMDoNet.exe '
    + GetServiceAppPath+'winform文件名'), SW_SHOW);

3.停止C#程序

 

function KillTask(ExeFileName: string): integer;
const 
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOLean;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin 
  Result :=0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
    UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
    UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(
      OpenProcess(PROCESS_TERMINATE,
      BOOL(0),
      FProcessEntry32.th32ProcessID),0));
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

 

procedure TBootCssService122.ServiceStop(Sender: TService;
  var Stopped: Boolean);
begin
//杀进程，停止程序
  KillTask('C#程序');//调用函数，杀你的程序abc.exe
  Stopped := True;
end;