interface
uses
Classes
,SysUtils
;
//字符函数
function IsInteger(Numstr:string):boolean;stdcall;
function GetPYIndexChar( hzchar:string):char;stdcall;
function SmallTOBig(small:real):string;stdcall;
function IsDigit(ch: char): boolean;stdcall;
function IsUpper(ch: char): boolean;stdcall;
function IsLower(ch: char): boolean;stdcall;
function ToUpper(ch: char): char;stdcall;
function ToLower(ch: char): char;stdcall;
function ScanStr(ToScan: PChar; Sign: Char):PChar;stdcall;
function IsInt(AStr: string): Boolean;stdcall;
function IsFloat(AStr: string): Boolean;stdcall;
function CopyStrLeft(ch: Char; str: string): string;stdcall;
function CopyStrRight(ch: Char; str: string): string;stdcall;
function left(str:string;Num:integer):string;stdcall;
function right(str:string;Num:integer):string;stdcall;
function mid(str:string;MidNum:integer;Num:integer):string;stdcall;
//----------------------------begin import dll---------------------------//
implementation
//字符函数
function IsInteger(Numstr:string):boolean;stdcall;external 'str';
function GetPYIndexChar( hzchar:string):char;stdcall;external 'str';
function SmallTOBig(small:real):string;stdcall;external 'str';
function IsDigit(ch: char): boolean;stdcall;external 'str';
function IsUpper(ch: char): boolean;stdcall;external 'str';
function IsLower(ch: char): boolean;stdcall;external 'str';
function ToUpper(ch: char): char;stdcall;external 'str';
function ToLower(ch: char): char;stdcall;external 'str';
function ScanStr(ToScan: PChar; Sign: Char):PChar;stdcall;external 'str';
function IsInt(AStr: string): Boolean;stdcall;external 'str';
function IsFloat(AStr: string): Boolean;stdcall;external 'str';
function CopyStrLeft(ch: Char; str: string): string;stdcall;external 'str';
function CopyStrRight(ch: Char; str: string): string;stdcall;external 'str';
function left(str:string;Num:integer):string;stdcall;external 'str';
function right(str:string;Num:integer):string;stdcall;external 'str';
function mid(str:string;MidNum:integer;Num:integer):string;stdcall;external 'str';
if ADVAPIHandle=0 then //获取DLL句柄
ADVAPIHandle:=loadlibrary(advapi); //失败,加载DLL
if ADVAPIHandle<>0 then begin //加载成功
try
_ChangeServiceConfigA:=getprocaddress(ADVAPIHandle,pchar('ChangeServiceConfigA')); //获取函数地址
Except
End;
uses
SysUtils,
forms,
Classes,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
function showform:integer;stdcall;
var
form:tform1;
begin
form:=tform1.Create(application);
result:=form.ShowModal;
form.Free;
end;
exports
showform;