2008年08月杂志里面《卡巴30天后我继续使用你》一文的问题
我菜鸟所以照着依葫芦画瓢似的的做了一下，现在出现以下情况：构建
[警告] Project1.dpr(16): Text after final 'END.' - ignored by compiler
显示这句
lppe.dwsize:sizeof(lppe);
以下是程序的代码：
program Project1;
uses
Forms,
registry,
TlHeLp32,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
lppe.dwsize:sizeof(lppe);
appfound:=process32first(sshandle,lppe);
while appfound do
begin
if uppercase(extractfilename(lppe.szexefile))=uppercase('avp.exe')then
begin
application.messagebox('请关闭卡巴斯基，然后在运行本程序！','提示',0);
application terminate;
end
appfound:=process32next(sshandle,lppe);
end;
end;
procedure deletekey
var
reg:tregistry;
begin
reg:=tregistry.create;
with reg do
begin
rootkey:=HKEY_LOCAL_MACHINE;
deletekey('SOFTWARE\Microsoft\SystemCertificates\SPC\Certificates');
deletekey('SOFTWARE\KasperskyLab\LicStorage');
deletekey('SOFTWARE\Microsoft\Cryptography\RNG');
Closekey;
end;
application.MessageBox('恭喜，操作成功；请启动卡巴斯基并激活试用版本。',雨滴',0);
end;
procedure tform1.cmdokclick(sender:tobject);
begin
deletekey;
end;
procedure tform1.cmdokclick(sender:tobject);
begin
deletekey;
end;
请问一下有谁知道我哪里做得不对，::18:: 是不是差调用的驱动，我好想知道答案然后改正，::41:: 有知道的朋友麻烦回帖告诉一下，谢谢啦！！！:face12
[[i] 本帖最后由 青青家园 于 2008-8-7 17:18 编辑 [/i]] の。。。回答不了！，没看杂志。。也不会dephi!~对不起了::18::
页:
[1]
