何错之有？？
library isDll;
{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }
uses
SysUtils,
Classes;
{$R *.res}
function CreateAppList():string;
begin
AppName:=TStringList.Create;
AppName.Add(AnsiUpperCase('ccApp'));
AppName.Add(AnsiUpperCase('TkBellExe'));
AppName.Add(AnsiUpperCase('SoundMan'));
AppName.Add(AnsiUpperCase('NeroCheck'));
AppName.Add(AnsiUpperCase('nwiz'));
AppName.Add(AnsiUpperCase('KAVRun'));
AppName.Add(AnsiUpperCase('popo2004'));
end;
function UserRegistry(name:String;code:String):Boolean;stdcall;
begin
{*这里放置加密算法*}
Result:=true;
//CreateAppList();
end;
function ScanApp(AppString:String):String;stdcall;
var
AppName:TStringList;
begin
AppName:=TStringList.Create;
AppName.Add(AnsiUpperCase('ccApp'));
AppName.Add(AnsiUpperCase('TkBellExe'));
AppName.Add(AnsiUpperCase('SoundMan'));
AppName.Add(AnsiUpperCase('NeroCheck'));
AppName.Add(AnsiUpperCase('nwiz'));
AppName.Add(AnsiUpperCase('KAVRun'));
AppName.Add(AnsiUpperCase('popo2004'));
case appname.IndexOf(AnsiUpperCase(AppString)) of
0:result:='诺顿实时防火墙';
1:Result:='ReadOnePlay 自动更新程序';
2:Result:='实时音频管理程序';
3:result:='Nero 光驱管理工具';
4:result:='显卡优化向导程序';
5:result:='江民杀毒王防火墙';
6:result:='网易泡泡 (见意删除)';
else
result:=AppString+' (未知的或是可疑的程序)';
end;
AppString:='123456';
result:=AppString;
end;
exports
UserRegistry,
ScanApp;
begin
end.
问题点数：0、回复次数：0Top
