Работа с DLL...

← →
Serd (2002-02-14 09:54) [7]

А вот всё, что используеться в Проекте:

{$R .RES}

function KeyGen(Key:string):boolean;stdcall;external "SetUp.dll";
function Coding(Text:string):string;stdcall;external "SetUp.dll";
function Decoding(Text:string):string; stdcall; external "SetUp.dll";

......

function TForm1.Code(str:string):string;
begin
Result:=Coding(str);
end;

function TForm1.DeCode(str:string):string;
begin
Result:=DeCoding(str);
end;

function TForm1.Ident(Key:string):boolean;
begin
if KeyGen(key)=true then
begin
Form1.Caption:="&&&&&&&&&&&&&&&&&&&&&&&&&&";
N8.Enabled:=true;
N12.Enabled:=true;
N17.Enabled:=false;
Result:=true;
end
else
Result:=false;
end;

Работа с DLL... Найти похожие ветки