unit winntService;
interface
uses
Windows,WinSvc,WinSvcEx;
function InstallService(const strServiceName,strDisplayName,strDescription,strFilename: string):Boolean;
procedure UninstallService(strServiceName:string);
implementation
function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; assembler;
asm
PUSH EDI
PUSH ESI
PUSH EBX
MOV ESI,EAX
MOV EDI,EDX
MOV EBX,ECX
XOR AL,AL
TEST ECX,ECX
JZ @@1
REPNE SCASB
JNE @@1
INC ECX
@@1: SUB EBX,ECX
MOV EDI,ESI
MOV ESI,EDX
MOV EDX,EDI
MOV ECX,EBX
SHR ECX,2
REP MOVSD
MOV ECX,EBX
AND ECX,3
REP MOVSB
STOSB
MOV EAX,EDX
POP EBX
POP ESI
POP EDI
end;
function StrPCopy(Dest: PChar; const Source: string): PChar;
begin
Result := StrLCopy(Dest, PChar(Source), Length(Source));
end;
function InstallService(const strServiceName,strDisplayName,strDescription,strFilename: string):Boolean;
var
//ss : TServiceStatus;
//psTemp : PChar;
hSCM,hSCS:THandle;
Service: SC_HANDLE; ......
在多CPU或多核CPU中，会随机的获得不同的序列号.这就为我们根据CPU序列号来制作注册机带来了很大的麻烦。
Windows 2000/XP允许设置进程和线程的关系。换句话说，可以控制哪个 CPU 能够运行某些线程。这称为Affinity Mask。Windows提供了设置相似性的函数SetProcessAffinityMask ，使用它可控制获取指定CPU的序列号。
1、如何获得cpu的序列号。
使用cpuid指令来获取。
在调用CPUID之前，EAX中存放的是功能代码。在调用CPUID之后，EAX,EBX,ECX,EDX存放的是CPU的各种特征信息。这些信息也就是我们通常所说的CPU序列号。
1、如何获得cpu的序列号?
我们可以使用使用CPUID指令来获取。
在调用CPUID之前，EAX中存放的是功能代码。在调用CPUID之后，EAX,EBX,ECX,EDX存放的是CPU的各种特征信息。这些信息也就是我们通常所说的CPU序列号。
MOV EAX, 0 //获取制造商信息
CPUID
Mov EAX, 1 //获得CPU的序列号
CPUID
下面将提供三个函数供参考：
function NewCPUID: string;
const ......
刚开始很不习惯c#的风格，哎，先入为主啊，delphi习惯了，{}代替begin/end太扎眼。
属性方法的宣告和代码在一起，没有像delphi分interface/implementation，感觉太乱，都不知道一个class到底有几个方法。
每个属性和方法前面都要单独写private/protected/public，老天，c#是delphi之父设计的揶，怎么不学delphi写一个就行呢？绝对降低生产率。
c#号称没有全局变量、全局函数了，有人大家赞赏，说可以减少耦合，刚很好奇，看了才明白，老天，都放到class里面去了，那这个class算不算全局的？？类似delphi的class method，不需要创建instance就可以调用。
跟c一样，函数调用，即使没有参数，也要加一对括号，烦，有时候不知道某个东西是属性还是方法，VS的code insight选择方法后也不自动加上一对括号，像ToString()，我总是忘掉。
没有了单元的概念，不存在一个cs文件引用另一个cs文件的用法，在project中的文件就可以互相使用里面的class。
assembly中没有如delphi的单元initialization/finalization初始化功能，很不方便，只能通过static property来lazy创建。
form有controls属性，列出第一层控件，与delphi一样；但是没有components属性，不知道如何列出那些不可视� ......
刚开始很不习惯c#的风格，哎，先入为主啊，delphi习惯了，{}代替begin/end太扎眼。
属性方法的宣告和代码在一起，没有像delphi分interface/implementation，感觉太乱，都不知道一个class到底有几个方法。
每个属性和方法前面都要单独写private/protected/public，老天，c#是delphi之父设计的揶，怎么不学delphi写一个就行呢？绝对降低生产率。
c#号称没有全局变量、全局函数了，有人大家赞赏，说可以减少耦合，刚很好奇，看了才明白，老天，都放到class里面去了，那这个class算不算全局的？？类似delphi的class method，不需要创建instance就可以调用。
跟c一样，函数调用，即使没有参数，也要加一对括号，烦，有时候不知道某个东西是属性还是方法，VS的code insight选择方法后也不自动加上一对括号，像ToString()，我总是忘掉。
没有了单元的概念，不存在一个cs文件引用另一个cs文件的用法，在project中的文件就可以互相使用里面的class。
assembly中没有如delphi的单元initialization/finalization初始化功能，很不方便，只能通过static property来lazy创建。
form有controls属性，列出第一层控件，与delphi一样；但是没有components属性，不知道如何列出那些不可视� ......
全图
保存数据为txt文档
保存为图像
打印——pdf打印机
下一步 有时间的话 实现 标签页面 USB转串口自动识别设备 //重新回到STM32上面-02-26 21:35:21
......
最近需要安装第三方组件，在网络上找到一些资料转过来看看
由于组件提供的方式不同，所以安装的方法也是不一样的，下面就目前常见的各种形式的组件的安装方法介绍一下。
1 只有一个DCU文件的组件。DCU文件是编译好的单元文件，这样的组件是作者不想把源码公布。一般来说，作者必须说明此组件适合Delphi的哪种版本，如果版本不对，在安装时就会出现错误。也正是因为没有源码，给使用者带来了不便，那就是一旦Delphi版本升级，此组件就不能再使用了，当然有的作者给出了几种版本的DCU文件，用户根据需要选择使用。这样的组件的安装方法是：在Component菜单中，选择install component，在对话框
"into existing package"页中，单击“Unit file name”后的“Browse”按扭，在打开的文件对话框中，将“文件类型”设定为*.dcu，找到要安装的DCU文件，按OK按钮返回"into existing package"页后再按OK按钮就可以安装了。注意，此时Delphi会提示dclusr40.dpk将被重建，是否继续，OK就可以了。这里是将组件安装� ......
1、保证你传递的参数要正确：C++中的char *对应PASCAL中的pchar。
2：C++中导出的函数的参数调用方式要和你DELPHI中的导入的函数参数调用方式要一致!
例如： C++的参数调用方式 对应的DELPHI的参数调用方式
_declspec cdecl
WINAPI,CALLBACK stdcall
PASCAL pascal
我遇到过你同样的问题，后来把STDCALL改为cdecl,问题就解决了，因为我在C++导出函数时使用的是“_declspec(dllexport)”，也就是C参数调用格式。 ......
1、保证你传递的参数要正确：C++中的char *对应PASCAL中的pchar。
2：C++中导出的函数的参数调用方式要和你DELPHI中的导入的函数参数调用方式要一致!
例如： C++的参数调用方式 对应的DELPHI的参数调用方式
_declspec cdecl
WINAPI,CALLBACK stdcall
PASCAL pascal
我遇到过你同样的问题，后来把STDCALL改为cdecl,问题就解决了，因为我在C++导出函数时使用的是“_declspec(dllexport)”，也就是C参数调用格式。 ......
最新文章 : delphi