delphi如何实现自校验呢？
没找到例子可以参考。 是自校验。。不是校验别的。。
请大家告诉我哪里有例子可下。。。。。
谢谢.
我的疑问：
一般是这样写
if CRC32ChecksumOfFile(application.ExeName)=1 then
begin
//do something
end;
那么：CRC32ChecksumOfFile(application.ExeName)=1 后面等号的值改下，不就 CRC32ChecksumOfFile(application.ExeName)得到的值一直会变吗？那怎么知道改后的值是多少呢？？？
楼主用资源字符串看看
然后修改这个资源的值，然后读取
up
Delphi(Pascal) code:
var
cs:string='[<[{[<[000000000000]}]>]}]';
a1:=application.ExeName内容，取copy(cs,1,7)（即'[<[{[<['）之前的内容做checksum
a2:=application.ExeName内容，取copy(cs,length(cs)-6,7)（即']}]>]}]'）之后的内容做checksum
if a1 xor a2=strtointdef(copy(cs,8,length(cs)-14),-1) then
begin
//do something
end;
跟踪a1 xor a2是多少，替换cs里的那些0
折腾的太麻烦了吧，最简单的方式是：另外写一个程度，用来在目标文件的最后附加上额外的校验结果（有的还加上长度），目标程度里得到原始长度做检验，再把结果直接与文件尾的结果做比较
另外，如果非要用什么东西占位的话，别写256以内的数，比如你这个 ***=1 的判断，想直接把编译后的8位的1改成32位的数是不可能的，改汇编的话又非常麻烦
是wooden954 说的意思。
s
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
我的代码如下,怎么总提示连不成功:
type
GUID = record //申明调用RAS（创建VPN连接用）函数所需结构体
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......
要包含winsock2 而且详细些的。
那些使用控件的的书本就不要了，
希望买过这类书的朋友能推荐下自己觉得不错的。
来关注下。
Windows网络与通信程序设计(第2版)
蓝皮的是新版,虽然是中国人写的但是非� ......
