vs2010下编写windows服务程序

最新推荐文章于 2024-06-07 14:00:51 发布
最新推荐文章于 2024-06-07 14:00:51 发布
阅读量2.7k 收藏 4
点赞数
分类专栏： windows服务 windows系统 文章标签： windows 服务程序 visual studio 2010
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/as14569852/article/details/78222002
版权

本程序主要实现功能是通过服务开启一个界面程序和执行一些cmd命令

第一步：创建一个ATL project，选择Service（exe），创建好后我个人添加的类的声明和定义都在一个cpp里，所以下面直接上cpp代码

// ATLdemo.cpp : Implementation of WinMain


#include "stdafx.h"
#include "resource.h"
#include "ATLdemo_i.h"
#include <atlcomcli.h>
#include <Userenv.h>
#pragma comment(lib, "userenv.lib")
#include<Wtsapi32.h>//win32 api
#pragma comment(lib, "WtsApi32.lib")
#include <stdio.h>
#include <shellapi.h>//shellsexcute
#pragma comment(lib, "shell32.lib")
#include "atlbase.h"
#include "fstream"
#include "iostream"
using namespace ATL;
class CATLdemoModule : public ATL::CAtlServiceModuleT< CATLdemoModule, IDS_SERVICENAME >
	{
public :
	DECLARE_LIBID(LIBID_ATLdemoLib)
	DECLARE_REGISTRY_APPID_RESOURCEID(IDR_ATLDEMO, "{BA3C0E26-048E-464F-86FB-133DF8638B79}")
		HRESULT InitializeSecurity() throw()
	{
		// TODO : Call CoInitializeSecurity and provide the appropriate security settings for your service
		// Suggested - PKT Level Authentication, 
		// Impersonation Level of RPC_C_IMP_LEVEL_IDENTIFY 
		// and an appropiate Non NULL Security Descriptor.

		return S_OK;
	}
	void OnPause() throw(); //暂停  
    void OnStop() throw();//停止  
    void Handler(DWORD dwOpcode) throw();//处理不同的服务控制消息  
    void OnContinue() throw();//继续运行  
    HRESULT PreMessageLoop(int nShowCmd) throw();//消息响应 
	bool QuerySerStatu();//查询服务状态
	void CreateCmd();
    inline HRESULT RegisterAppId(_In_ bool bService = false) throw()//为了运行重写的 install
    {
        if (!Uninstall())
            return E_FAIL;

        CATLdemoModule::UpdateRegistryAppId(TRUE);

        CRegKey keyAppID;
        keyAppID.Open(HKEY_CLASSES_ROOT, _T("AppID"), KEY_WRITE);

        CRegKey key;

        key.Create(keyAppID, CATLdemoModule::GetAppIdT());

        key.DeleteValue(_T("LocalService"));

        key.SetStringValue(_T("LocalService"), m_szServiceName);

        // Create service
        if (!Install())
            return E_FAIL;
        return S_OK;
    } 
	bool LaunchSession1Process( LPTSTR lpCommand );
	void RunMessageLoop() throw();
	HRESULT Run(int nShowCmd = SW_HIDE) throw();//重写run
	BOOL Install() throw();//为了重写createservice
	bool ParseCommandLine(
		_In_z_ LPCTSTR lpCmdLine,
		_Out_ HRESULT* pnRetCode) throw();
	private:
	WCHAR lpszClientPath[MAX_PATH];//当前服务路径
    _TCHAR dependServices[256];//依赖项
    DWORD size;
    DWORD dwStartType;
	//int Get_Time();
	int Share_Memory();
	bool Count_Time();
	typedef struct _Date
	{
		int i_year;
		int i_month;
		int i_day;
	}Date;
	Date Initia_time;
	Date Pay_time;
	static  int YearCalcArray[20] ;
    static int MonthCalcArray[12] ;
};
    int YearCalcArray[4] = {365, 365, 365, 366};
	int MonthCalcArray[12] = {31, 28, 31, 30, 31, 30, 31, 31, 30,31,30,31};

CATLdemoModule _AtlModule;



//
extern "C" int WINAPI _tWinMain(HINSTANCE /*hInstance*/, HINSTANCE /*hPrevInstance*/, 
								LPTSTR /*lpCmdLine*/, int nShowCmd)
{

	 _AtlModule.WinMain(nShowCmd);
}
void CATLdemoModule::RunMessageLoop()throw()
{
	//to do something
			MSG msg;
		if(LaunchSession1Process(L"ll"))
           LogEvent(L"交互成功");	
		//Share_Memory();
		CreateCmd();
		if(!QuerySerStatu())
			LogEvent(L"查询状态失败");
		while (GetMessage(&msg, 0, 0, 0) > 0)
		{
			TranslateMessage(&msg);
			DispatchMessage(&msg);
		}
}
bool CATLdemoModule::LaunchSession1Process( LPTSTR lpCommand)
{
	BOOL bSuccess = FALSE;
	STARTUPINFO si = {0};
	PROCESS_INFORMATION pi = {0};
	si.cb = sizeof(si);

	DWORD dwSessionID = WTSGetActiveConsoleSessionId();

	HANDLE hToken = NULL;
	if (WTSQueryUserToken(dwSessionID, &hToken) == FALSE)
	{
		 LogEvent(L"读取当前登录用户的令牌信息失败");
	}
	HANDLE hDuplicatedToken = NULL;
	if (DuplicateTokenEx(hToken, MAXIMUM_ALLOWED, NULL, SecurityIdentification, TokenPrimary, &hDuplicatedToken) == FALSE)
	{
	    LogEvent(L"复制当前登录用户的令牌信息失败");
	}
	LPVOID lpEnvironment = NULL;
	if (CreateEnvironmentBlock(&lpEnvironment, hDuplicatedToken, FALSE) == FALSE)
	{
	    LogEvent(L"创造环境失败");
	}
	
	if (GetModuleFileName(NULL, lpszClientPath, MAX_PATH) == 0)
	{
	    LogEvent(L"获取当前进程已加载模块的文件的完整路径失败");
	}
	PathRemoveFileSpec(lpszClientPath);//删除最后文件名
	WCHAR *path=(L"C:\\windows\\system32\\cmd.exe");
	//执行cmd命令
	if (CreateProcessAsUser(hDuplicatedToken,path, NULL, NULL, NULL, FALSE,
	NORMAL_PRIORITY_CLASS | CREATE_NEW_CONSOLE | CREATE_UNICODE_ENVIRONMENT,
	lpEnvironment, NULL, &si, &pi) == FALSE)
	{
		DWORD a=GetLastError();
		TCHAR str[100];
        wsprintf(str,L"%u",a);
		LogEvent((LPCTSTR)str);
	    LogEvent(L"创建新进程失败");
	}
	CloseHandle(pi.hProcess);
	CloseHandle(pi.hThread);
	bSuccess = TRUE;
	return bSuccess;
}
bool CATLdemoModule::ParseCommandLine(
		_In_z_ LPCTSTR lpCmdLine,
		_Out_ HRESULT* pnRetCode) throw()
	{
		if (!CAtlExeModuleT<CATLdemoModule>::ParseCommandLine(lpCmdLine, pnRetCode))
			return false;

		TCHAR szTokens[] = _T("-/");
		*pnRetCode = S_OK;

		CATLdemoModule* pT = static_cast<CATLdemoModule*>(this);
		LPCTSTR lpszToken = FindOneOf(lpCmdLine, szTokens);
		while (lpszToken != NULL)
		{
			if (WordCmpI(lpszToken, _T("Service"))==0)
			{
				*pnRetCode = this->RegisterAppId(true);
				if (SUCCEEDED(*pnRetCode))
					{
					*pnRetCode = this->RegisterServer(TRUE);
				}
				return false;
			}
			lpszToken = FindOneOf(lpszToken, szTokens);
		}
		return true;
	}
HRESULT CATLdemoModule::Run(int nShowCmd) throw()
	{
		HRESULT hr = S_OK;
		CATLdemoModule *pT = this;
		hr = pT->PreMessageLoop(nShowCmd);

		// Call RunMessageLoop only if PreMessageLoop returns S_OK.
		if (GetModuleFileName(NULL, lpszClientPath, MAX_PATH) == 0)
		{
			LogEvent(L"获取当前进程已加载模块的文件的完整路径失败");
		}
	    PathRemoveFileSpec(lpszClientPath);//删除最后文件名
		wcscat_s(lpszClientPath, sizeof(lpszClientPath)/sizeof(WCHAR), L"time_rec.txt");
		//SYSTEMTIME sys;//获取系统时间
		fstream file;
		file.open();
		//while(1){
		//GetLocalTime( &sys );   
		//int Time_Year=sys.wYear;
		//int Time_second=sys.wSecond;
		//int Time_Minute=sys.wMinute;
		//wchar_t ch[20];
		_stprintf_s(ch,"%d",Time_Minute);
		//_itow_s(Time_second, ch, 20, 10);
		//LPWSTR tittle=L"hello";
		//DWORD resp;
		//WTSSendMessage(
		//	WTS_CURRENT_SERVER_HANDLE, 
		//	WTSGetActiveConsoleSessionId(),
		//	tittle,5,
		//	ch,20, 
		//	0, 0, &resp,false);
		//Sleep(5000);
		//}
		if (hr == S_OK)
		{
			pT->RunMessageLoop();
		}

		// Call PostMessageLoop if PreMessageLoop returns success.
		if (SUCCEEDED(hr))
		{
			hr = pT->PostMessageLoop();
		}

		ATLASSERT(SUCCEEDED(hr));

		return hr;
	}
HRESULT CATLdemoModule::PreMessageLoop( int nShowCmd ) throw()  
{  
   //让服务允许暂停和继续操作  
   m_status.dwControlsAccepted = m_status.dwControlsAccepted|SERVICE_ACCEPT_PAUSE_CONTINUE;  
   HRESULT hr = __super::PreMessageLoop(nShowCmd);  
   if (hr == S_FALSE)  
   {  
       hr = S_OK;
   }  
  
   //将服务状态设置为启动  
   SetServiceStatus(SERVICE_RUNNING);  
  
   //写入系统日志  
   LogEvent(L"ATLDemo Service Start Successfully~!"); 
     HANDLE hToken;  
    TOKEN_PRIVILEGES tkp;  
	bool ret;
    ret=OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken);
	if(!ret)
		LogEvent(L"获取令牌句柄失败!!"); 
	LUID Luid;
	ret= LookupPrivilegeValue(NULL,SE_SHUTDOWN_NAME ,&Luid);
	if(!ret)
		LogEvent(L"获取Luid失败"); 
	tkp.PrivilegeCount = 1;
    tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED; 
	tkp.Privileges[0].Luid=Luid;
    //AdjustTokenPrivileges(hToken, FALSE, &tkp,sizeof(TOKEN_PRIVILEGES),NULL, NULL); 
	   AdjustTokenPrivileges(hToken, FALSE, &tkp, 0, 
        (PTOKEN_PRIVILEGES)NULL, 0); 
	if (GetLastError() == ERROR_NOT_ALL_ASSIGNED)
	{
		LogEvent(L"修改特权失败");
	}
	 if(GetLastError()== ERROR_SUCCESS)  //修改权限成功
	 {
		 LogEvent(L"修改特权成功"); 
		 //ShellExecute(NULL, L"Open", L"C:\\Users\\Administrator\\Desktop\\NCG00.txt", NULL, NULL, SW_SHOWNORMAL);
	 }
   return hr;  
}  
void CATLdemoModule::Handler( DWORD dwOpcode ) throw()  
{  
    switch(dwOpcode)  
    {  
    case SERVICE_CONTROL_PAUSE://暂停  
        {  
            OnPause();  
            break;  
        }  
    case SERVICE_CONTROL_CONTINUE://继续  
        {  
            OnContinue();  
            break;  
        }  
    default:  
        break;  
    }  
  
    __super::Handler(dwOpcode);  
}  
void CATLdemoModule::OnPause() throw()  
{  
    //设置服务状态为暂停  
    SetServiceStatus(SERVICE_PAUSED);  
  
    __super::OnPause();  
}  
void CATLdemoModule::OnStop() throw()  
{  
     //设置服务状态为停止  
    SetServiceStatus(SERVICE_STOPPED);  
  
    __super::OnStop();  
}   
void CATLdemoModule::OnContinue() throw()  
{  
    //设置服务状态为启动  
    SetServiceStatus(SERVICE_RUNNING);  
  
     __super::OnContinue();  
}  
BOOL CATLdemoModule::Install() throw()
	{
		if (IsInstalled())
			return TRUE;
		
		// Get the executable file path
		TCHAR szFilePath[MAX_PATH + _ATL_QUOTES_SPACE];
		DWORD dwFLen = ::GetModuleFileName(NULL, szFilePath + 1, MAX_PATH);
		if( dwFLen == 0 || dwFLen == MAX_PATH )
			return FALSE;

		// Quote the FilePath before calling CreateService
		szFilePath[0] = _T('\"');
		szFilePath[dwFLen + 1] = _T('\"');
		szFilePath[dwFLen + 2] = 0;

		SC_HANDLE hSCM = ::OpenSCManager(NULL, NULL, SC_MANAGER_ALL_ACCESS);
		if (hSCM == NULL){
			LogEvent(L"打开SCM失败");
		}
		//创建服务
		LogEvent(L"进入Install");
		SC_HANDLE hService = ::CreateService(        
			hSCM, L"supsys",L"Support System",
			SERVICE_ALL_ACCESS, SERVICE_WIN32_OWN_PROCESS,
			SERVICE_AUTO_START, SERVICE_ERROR_NORMAL,
			szFilePath, NULL, NULL, _T("RPCSS\0"), NULL, NULL);
		    if (hService == NULL)
			{
				DWORD error=GetLastError();
				//LogEvent((LPCTSTR)error);
				::CloseServiceHandle(hSCM);
				LogEvent(L"CreateService failure");
				return FALSE;
			}
			LogEvent(L"CreateService successful");
			///
	 		hSCM = ::OpenSCManager(NULL,NULL,SERVICE_CHANGE_CONFIG);
			hService=::OpenService(hSCM,L"supsys",SERVICE_CHANGE_CONFIG);
			if(hService==NULL)
				LogEvent(L"123");
                    SERVICE_DESCRIPTION sDescription;  
                    TCHAR szDescription[1024];  
                    ZeroMemory(szDescription,1024);  
                    ZeroMemory(&sDescription,sizeof(SERVICE_DESCRIPTION));  
  
                    //服务描述  
                    lstrcpy(szDescription,L"windows服务支持！");  
                    sDescription.lpDescription = szDescription;  
  
                    //修改服务描述信息  
                    ChangeServiceConfig2(hService,SERVICE_CONFIG_DESCRIPTION,&sDescription); 
					::CloseServiceHandle(hService);
		            ::CloseServiceHandle(hSCM);
	 
		return TRUE;
	}
bool CATLdemoModule::Count_Time()
{
		SYSTEMTIME sys;//获取系统时间
		GetLocalTime( &sys ); 
		Date Current_Time;
		Current_Time.i_year=sys.wYear;
		Current_Time.i_month=sys.wMonth;
		Current_Time.i_day=sys.wDay;
		while(1){
		int i=Pay_time.i_day-Current_Time.i_day;
		if(i>=0&&i<3)
			{//show the warning;
		}
		else if(i<0)
			{//kill the process;
		}
		}
}
//共享内存获得变量
int CATLdemoModule::Share_Memory()
{
	int nRetCode = 0;
	while(1){
    HANDLE hMapping = OpenFileMapping(FILE_MAP_ALL_ACCESS,NULL,L"Global\\ShareMemory");
    if (hMapping)
    {
        LogEvent(L"Success Share_Memory");
        LPVOID lpBase = MapViewOfFile(hMapping,FILE_MAP_READ|FILE_MAP_WRITE,0,0,0);
        char szBuffer[5] = {0};
        strcpy(szBuffer,(char*)lpBase);
		if(!strcmp(szBuffer,"true")){
        LogEvent(L"true");
		}
        UnmapViewOfFile(lpBase);
        CloseHandle(hMapping);
		nRetCode=1;
		OnStop();
		break;
    }
    else
    {
        LogEvent(L"OpenMapping Error");
    }
	}
    return nRetCode;
}
bool CATLdemoModule::QuerySerStatu(){
	SC_HANDLE schSCManager = OpenSCManager(NULL, NULL, SC_MANAGER_ALL_ACCESS);//打开SCmanager
	if (!schSCManager)//打开失败
	{
		LogEvent(L"OpenSCManager failed w/err 0x%08lx\n", GetLastError());
		return false;
	}
	LPCTSTR MySer_Name=L"ZhuDongFangYu";
	SC_HANDLE schService = OpenService(schSCManager, MySer_Name, //打开服务
	SERVICE_QUERY_STATUS | SERVICE_QUERY_CONFIG);
	if (NULL != schService)//服务存在
	{
		LogEvent(L"主动防御 was installed.\n");
		DWORD cbBytesNeeded;

		// 
		// Query the status of the service
		// 

		SERVICE_STATUS_PROCESS ssp;
		if (QueryServiceStatusEx(schService, SC_STATUS_PROCESS_INFO, (LPBYTE)&ssp, 
			sizeof(ssp), &cbBytesNeeded))
		{
			LogEvent(L"Service status: ");
			if(ssp.dwCurrentState==SERVICE_RUNNING)//正在运行返回true
			{
				::CloseServiceHandle(schSCManager);
				::CloseServiceHandle(schService);
			    return true;
			}
			else
			{
				::CloseServiceHandle(schSCManager);
				::CloseServiceHandle(schService);
				return false;
			}
			//switch (ssp.dwCurrentState)
			//{
			//case SERVICE_STOPPED: _putws(L"Stopped"); break;
			//case SERVICE_RUNNING: _putws(L"Running"); break;
			//case SERVICE_PAUSED: _putws(L"Paused"); break;
			//case SERVICE_START_PENDING:
			//case SERVICE_STOP_PENDING:
			//case SERVICE_CONTINUE_PENDING:
			//case SERVICE_PAUSE_PENDING: _putws(L"Pending"); break;
			//}
		}
		else
		{
			LogEvent(L"QueryServiceStatusEx failed w/err 0x%08lx\n", GetLastError());
		}
		
			::CloseServiceHandle(schSCManager);
			::CloseServiceHandle(schService);
	}
	else//服务不存在返回flase
	{
		LogEvent(L"主动防御 was unstalled.\n");
		::CloseServiceHandle(schSCManager);
		::CloseServiceHandle(schService);
		return false;
		
	}
}
void CATLdemoModule::CreateCmd(){

	
}
以上可以说实现了一个最基本的服务程序，服务程序不能直接debug，要先生成（注意生成时如果这个服务正在运行或已经注册将会失败）

让服务注册运行的cmd命令为

d:
cd D:\work project\me\daima\ATLdemo\Debug
atldemo.exe /service
net start supsys

删除服务的命令为

atldemo /unregserver

或
sc delete atldemo

飞翔的黄瓜
关注
  • 0
    点赞
  • 踩
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
c#创建windows服务执行定时任务（vs2010）
qq_44301896的博客
08-10 793
2.、输入 sc create ServerName binpath= “E:\code\bin\MyWindowsService.exe” 等号后有空格，其中E:\code\bin\MyWindowsService.exe为你的服务生成dll的地址。若需要调试，除了将上述注释代码复原外，还需要修改program类，注释掉原有代码，打开调试用代码。每次修改代码后，需要先停用服务，重新生成代码，再打开服务。右击service类查看代码，添加你需要的服务代码。写完代码后需要在计算机上创建服务。
VS2017创建运行Windows服务程序
04-12
VS2017 创建运行 Windows 服务程序 在本篇文章中，我们将详细介绍如何使用 VS2017 创建和运行 Windows 服务程序。Windows 服务是 Windows 操作系统中的一种特殊程序，它可以在后台运行，提供一些特殊的功能。下面，...
如何编写windows服务程序
我是榜样的博客
11-22 1万+
如何编写windows服务程序 By:张鹏/Hikvision 这两天想学习关于如何编写windows服务程序的知识，就上网查了些资料。看了一篇文章《用C 语言编写Windows 服务程序的五个步骤》。但可能由于译者的疏忽，忘记了将关键代码放入该文档，导致初学者可能会看不懂。所以又查阅了相关资料。自己完成了《用C 语言编写Windows 服务程序的五个步骤》中的样例程序。 在本文中我希望能给
使用C#创建安装Windows服务程序(干货)
最新发布
我是菜鸟
06-07 1176
Windows服务是在Windows操作系统上，以后台形式运行的应用程序。它们可以在系统启动时自动启动，并且独立于用户登录。Windows服务通常用于执行那些长时间运行、无需用户交互或需要在后台持续执行的任务。
vs2010 编写windows service 服务程序
闲云野鹤 的专栏
08-15 2569
转至：http://blog.sina.com.cn/s/blog_5cf5e7c4010149sg.html  File-New-Project编写windows service 服务程序" name="image_operate_7761342432852987" alt="vs2010 编写windows service 服务程序" src="http://s16.sinaimg.cn
VS 2010一步步开发windows服务(windows service)
天行健,人人当自强不息
12-04 1489
VS 2010一步步开发windows服务(windows service)
C# VS 2010 创建、安装、调试 windows服务(windows service)
java开发指南博客 【转载】
05-07 239
在一个应用程序中创建多个 windows 服务的方法和 1083 错误的解决方法法 添加‘服务安装成功’后自启动功能 -------------------------------------------------------------------------------------- 1.创建 windows服务 项目 文件 -&gt; 新建项目 -&gt; 已安装的模板 -...
用Visual Studio 2010生成一个Windows Service
05-23 377
本文转自国外blog： http://myhosting.com/blog/2010/09/creating-windows-service-visual-studio-2010/ 作者写的很好，就转载一下，有时间翻译一下。 Creating a Windows Service in Visual Studio 2010 by SULLY SYED on SE
vs2010 创建windows服务（ Asp.net(C#) windows 服务 用于实现计划任务,事件监控等）
04-10
vs2010 创建windows服务（ Asp.net(C#) windows 服务 用于实现计划任务,事件监控等）。 此示例是定时写文件
VS2008下C++开发Windows服务程序
04-30
使用VS2008开发环境C++编写的Windows服务程序，安装、启动、暂停、恢复、停止、重新启动服务
VS2010编写的服务
10-28
求高手帮忙看下，断线报警器启动不了是怎么回事
VS2010如何一步步开发添加Windows服务(Windows service)及服务安装启动
热门推荐
cwt19902010的专栏
05-12 1万+
最近在做一个Socket的服务端程序，调试成功后，就打算将其做成Windows服务，第一次操作，于是先到网上搜索一些资料，最后完成服务，特记录如下。 第一步，需要创建一个Windows应用程序，（我创建的是控制台程序，如果WinForm也一样）     接下来在项目中添加一个Windows服务类   然后双击“MainService.
关于windows服务的编写/安装/与调试
xiaojie_cp的专栏
05-21 420
北京网站建设-恒动时空前注：     首先，这篇文章是从网上转过来的，因为最近有个项目，需要编写一个Windows Service来定时执行程序，网上很容易找到了这篇文章，大概看了一下，文章讲的还是很详细的。不过这篇文章应该是.net1.0版的，我用的是2.0，在其中还是遇到了一些问题，记下来解决办法，有遇到同样问题的朋友可以少走弯路。    （1）关于Timer定时的问题，这篇文章中说的是从
VS2010与VS2013中的多字节编码与Unicode编码问题
weixin_30258901的博客
07-18 657
1. 多字节字符与单字节字符 　　char与wchar_t 　　我们知道C++基本数据类型中表示字符的有两种：char、wchar_t。 　　char叫多字节字符，一个char占一个字节，之所以叫多字节字符是因为它表示一个字时可能是一个字节也可能是多个字节。一个英文字符(如’s’)用一个char(一个字节)表示，一个中文汉字(如’中’)用3个char(三个字节)表示。 　　wchar_t...
VS2017开发Windows服务
gx_up
10-23 8249
转载自：http://www.cnblogs.com/xujie/p/5695673.html 1、新建windows服务项目，我这里选择的是Framework4.0，没有选择高版本是为了防止在服务在一些低版本系统上无法正常运行。 2、添加Windows服务的安装程序。 在默认Service1设计器界面空白处点击右键->添加安装程序，系统会自动新建一个
"使用Delphi7编写Windows服务程序总结
Delphi7是一种用于编写Windows服务程序的开发环境。在本文档中，我们将总结使用Delphi7编写Windows服务程序的过程和一些重要的属性和事件。 首先，在Delphi7中创建服务程序非常简单。只需点击菜单栏中的”File- >...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值