将windows服务程序 的安装 启动 卸载 写成bat文件执行 请问如何写

安装：程序名 + /install 或程序名 + /service

启动：net start + 服务名 或 sc start +服务名

停止：net stop + 服务名 或 sc stop +服务名

卸载：sc delete +服务名 或 程序名+ /uninstall

例：对C盘根目录下的AAexe（服务名：AA）进行 *** 作的BAT如下：

C:\\aa /install

sc start aa

sc stop aa

c:\\aa /uninstall

ppt2003插入图表时显示:“无法找到服务器应用程序，源文件和项目,或返回的未知错误。是设置错误造成的，解决方法如下：

1、首先在电脑中打开PPT，选择“插入”，进行如图所示的选择，如图。

2、根据自己的意愿选择图表类型，并点击“确认”，如图。

3、这时就会出现PPT和excel表格两个窗口，可以自己对表格进行编辑，如图。

4、当选中excel表格中的一栏数据时，PPT中的图表将会显示这一栏的数据情况，如图。

5、最后可以将excel表格文件关闭，这样更清楚的显示PPT的文件内容。

(1)不用登陆进系统即可运行

(2)具有SYSTEM特权所以你在进程管理器里面是无法结束它的

笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序

运行Delphi7,选择菜单File-->New-->Other--->Service Application将生成一个服务程序的框架将工程保存为ServiceDemodpr和Unit_Mainpas,然后回到主框架我们注意到,Service有几个属性其中以下几个是我们比较常用的:

(1)DisplayName:服务的显示名称

(2)Name:服务名称

我们在这里将DisplayName的值改为"Delphi服务演示程序",Name改为"DelphiService"编译这个项目,将得到ServiceDemoexe这已经是一个服务程序了!进入CMD模式,切换致工程所在目录,运行命令"ServiceDemoexe /install",将提示服务安装成功!然后"net start DelphiService"将启动这个服务进入控制面版-->管理工具-->服务,将显示这个服务和当前状态不过这个服务现在什么也干不了,因为我们还没有写代码:)先"net stop DelphiService"停止再"ServiceDemoexe /uninstall"删除这个服务回到Delphi7的IDE

我们的计划是为这个服务添加一个主窗口,运行后任务栏显示程序的图标,双击图标将显示主窗口,上面有一个按钮,点击该按钮将实现Ctrl+Alt+Del功能

实际上,服务程序莫认是工作于Winlogon桌面的,可以打开控制面板,查看我们刚才那个服务的属性-->登陆,其中"允许服务与桌面交互"是不打钩的怎么办呵呵,回到IDE,注意那个布尔属性:Interactive,当这个属性为True的时候,该服务程序就可以与桌面交互了

File-->New-->Form为服务添加窗口FrmMain,单元保存为Unit_FrmMain,并且把这个窗口设置为手工创建完成后的代码如下:

unit Unit_Main;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, Unit_FrmMain;

type

TDelphiService = class(TService)

procedure ServiceContinue(Sender: TService; var Continued: Boolean);

procedure ServiceExecute(Sender: TService);

procedure ServicePause(Sender: TService; var Paused: Boolean);

procedure ServiceShutdown(Sender: TService);

procedure ServiceStart(Sender: TService; var Started: Boolean);

procedure ServiceStop(Sender: TService; var Stopped: Boolean);

private

{ Private declarations }

public

function GetServiceController: TServiceController; override;

{ Public declarations }

end;

var

DelphiService: TDelphiService;

FrmMain: TFrmMain;

implementation

{$R DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;

begin

DelphiServiceController(CtrlCode);

end;

function TDelphiServiceGetServiceController: TServiceController;

begin

Result := ServiceController;

end;

procedure TDelphiServiceServiceContinue(Sender: TService;

var Continued: Boolean);

begin

while not Terminated do

begin

Sleep(10);

ServiceThreadProcessRequests(False);

end;

end;

procedure TDelphiServiceServiceExecute(Sender: TService);

begin

while not Terminated do

begin

Sleep(10);

ServiceThreadProcessRequests(False);

end;

end;

procedure TDelphiServiceServicePause(Sender: TService;

var Paused: Boolean);

begin

Paused := True;

end;

procedure TDelphiServiceServiceShutdown(Sender: TService);

begin

gbCanClose := true;

FrmMainFree;

Status := csStopped;

ReportStatus();

end;

procedure TDelphiServiceServiceStart(Sender: TService;

var Started: Boolean);

begin

Started := True;

SvcmgrApplicationCreateForm(TFrmMain, FrmMain);

gbCanClose := False;

FrmMainHide;

end;

procedure TDelphiServiceServiceStop(Sender: TService;

var Stopped: Boolean);

begin

Stopped := True;

gbCanClose := True;

FrmMainFree;

end;

end

主窗口单元如下:

unit Unit_FrmMain;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, ShellApi, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;

const

WM_TrayIcon = WM_USER + 1234;

type

TFrmMain = class(TForm)

Timer1: TTimer;

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure FormDestroy(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

IconData: TNotifyIconData;

procedure AddIconToTray;

procedure DelIconFromTray;

procedure TrayIconMessage(var Msg: TMessage); message WM_TrayIcon;

procedure SysButtonMsg(var Msg: TMessage); message WM_SYSCOMMAND;

public

{ Public declarations }

end;

var

FrmMain: TFrmMain;

gbCanClose: Boolean;

implementation

{$R dfm}

procedure TFrmMainFormCreate(Sender: TObject);

begin

FormStyle := fsStayOnTop; {窗口最前}

SetWindowLong(ApplicationHandle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); {不在任务栏显示}

gbCanClose := False;

Timer1Interval := 1000;

Timer1Enabled := True;

end;

procedure TFrmMainFormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

CanClose := gbCanClose;

if not CanClose then

begin

Hide;

end;

end;

procedure TFrmMainFormDestroy(Sender: TObject);

begin

Timer1Enabled := False;

DelIconFromTray;

end;

procedure TFrmMainAddIconToTray;

begin

ZeroMemory(@IconData, SizeOf(TNotifyIconData));

IconDatacbSize := SizeOf(TNotifyIconData);

IconDataWnd := Handle;

IconDatauID := 1;

IconDatauFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;

IconDatauCallbackMessage := WM_TrayIcon;

IconDatahIcon := ApplicationIconHandle;

IconDataszTip := 'Delphi服务演示程序';

Shell_NotifyIcon(NIM_ADD, @IconData);

end;

procedure TFrmMainDelIconFromTray;

begin

Shell_NotifyIcon(NIM_DELETE, @IconData);

end;

procedure TFrmMainSysButtonMsg(var Msg: TMessage);

begin

if (MsgwParam = SC_CLOSE) or

(MsgwParam = SC_MINIMIZE) then Hide

else inherited; // 执行默认动作

end;

procedure TFrmMainTrayIconMessage(var Msg: TMessage);

begin

if (MsgLParam = WM_LBUTTONDBLCLK) then Show();

end;

procedure TFrmMainTimer1Timer(Sender: TObject);

begin

AddIconToTray;

end;

procedure SendHokKey;stdcall;

var

HDesk_WL: HDESK;

begin

HDesk_WL := OpenDesktop ('Winlogon', 0, False, DESKTOP_JOURNALPLAYBACK);

if (HDesk_WL <> 0) then

if (SetThreadDesktop (HDesk_WL) = True) then

PostMessage(HWND_BROADCAST, WM_HOTKEY, 0, MAKELONG (MOD_ALT or MOD_CONTROL, VK_DELETE));

end;

procedure TFrmMainButton1Click(Sender: TObject);

var

dwThreadID : DWORD;

begin

CreateThread(nil, 0, @SendHokKey, nil, 0, dwThreadID);

end;

end

补充:

(1)关于更多服务程序的演示程序,请访问以下Url:>

Windows Server 2012 现已推 向企业服务提供商提供伸缩、态、支持租户及通云计算优化基础结构 Windows Server 2012 帮助组织安全进行本连接并帮助 IT 专业员更快且更高效响应业务需求Windows Server 2012 评估软件提供标准版数据版 设置注册程系统提示您选择版本

ISO 用语言版本： 简体文、英语、语、德语、意利语、语、俄语、西班牙语

VHD 用语言版本： 英语

安装 Internet 信息服务 Microsoft Internet 信息服务 (IIS) 与 Windows Server 2003 集 Web 服务 要安装 IIS、添加选组件或删除选组件请按步骤 *** 作： 1 单击始指向控制面板单击添加或删除程序 添加或删除程序工具启 2 单击添加/删除 Windows 组件 显示Windows 组件向导 3 Windows 组件 列表单击Web 应用程序服务器 4 单击详细信息单击Internet 信息服务 (IIS) 5 单击详细信息 查看 IIS 选组件列表 6 选择您要安装选组件默认情况列组件选： --- 公用文件 --- FrontPage 2002 Server Extentions --- Internet 信息服务管理单元 --- Internet 信息服务管理器 --- NNTP 服务 --- SMTP 服务 --- World Wide Web 服务 7 单击World Wide Web 服务单击详细信息 查看 IIS 选组件（ Active Server Pages 组件远程管理 (Html) 工具）列表选择您要安装选组件默认情况列组件选： --- World Wide Web 服务 8 单击确定 直返Windows 组件向导 9 单击步完Windows 组件向导 配置匿名身份验证 要配置匿名身份验证请按步骤 *** 作： 1 单击始指向管理工具单击Internet 信息服务 (IIS) 2 展 服务器名称（其服务器名称 该服务器名称）右键单击Web 站点单击属性 3 Web 站点属性 框单击目录安全性 选项卡 4 身份验证访问控制单击编辑 5 单击启用匿名访问复选框其选 备注：用户名框用户帐户用于通 Windows guest 帐户进行匿名访问 默认情况服务器创建并使用帐户 IUSR_computername匿名用户帐户密码仅 Windows 使用；匿名用户使用用户名密码登录 6 已验证身份访问单击集 Windows 身份验证复选框其选 7 单击确定 两 基本 Web 站点配置 1 单击始指向管理工具单击Internet 信息服务 (IIS) 2 展 服务器名称（其服务器名称 该服务器名称）展Web 站点 3 右键单击默认 Web 站点单击属性 4 单击Web 站点 选项卡您已计算机配 IP 址则请IP 址 框单击您要指定给 Web 站点 IP 址 5 单击性能 选项卡使用Web 站点属性 - 性能 框设置影响内存、带宽使用 Web 连接数量属性

电脑安装系统时卡在某个步骤时查看下有没死机，没死机的话一般是配置差速度慢，多等一下；如果死机可以尝试重新安装，死在同一位置的话则更换安装系统或跳过驱动程序的安装，也有可能是硬盘或其它硬件有问题。

windowsinstaller服务启动方法：

1首先检查C:\WINDOWS\system32文件夹中是否缺少msidll这个文件，如果没有的话就去别的机器上拷贝一个过来，或者去下载一个windowsinstaller安装包，解压msidll出来复制到C:\WINDOWS\system32文件夹中；

2 单击“开始”，单击“运行”，键入 MSIEXEC /UNREGISTER，然后单击“确定”。这时系统可能不会有任何反应，即使 *** 作完全正确；

3 单击“开始”，单击“运行”，键入 MSIEXEC /REGSERVER，然后单击“确定”。这时系统可能不会有任何反应（即使您的 *** 作完全正确），也可能会暂时出现一个沙漏。运行此命令后，也就完成了 *** 作；

4 再次尝试安装基于 Windows Installer 的应用程序 ,现在应该可以正常启动windows installer服务了。

以上就是关于将windows服务程序 的安装 启动 卸载 写成bat文件执行 请问如何写全部的内容，包括:将windows服务程序 的安装 启动 卸载 写成bat文件执行 请问如何写、ppt2003插入图表时显示:“无法找到服务器应用程序，源文件和项目,或返回的未知错误。请重新安装服务程序、delphi7开发的WINDOW服务程序并安装成功，但在本地服务列表中看不到，任务管理器的服务器中可以看到等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！