The cipher
DLL example
- Code: Select all
library cipher;
uses
Windows,
Messages,
SysUtils,
Variants,
Classes,
Graphics,
Controls,
Forms,
Dialogs;
procedure About; stdcall;
var
number:Integer;
cipher:AnsiString;
button:Boolean;
begin
number:=1;
button:=InputQuery('Please the cipher ','the cipher',cipher);
if button Then
begin
while(cipher<>'1234')do // the cipher
begin
if number>=3 Then
begin
ShowMessage('Three wrong. The programme will be closed ');
Halt;
end
else
begin
button:=InputQuery('Please the cipher','the cipher ',cipher);
inc(number);
end;
end;
end
else
begin
ShowMessage('The programme will be closed');
Halt;
end;
end;
exports
About name 'About';
begin
end.
and
unit1 example
- Code: Select all
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
procedure About; stdcall external 'cipher.dll' name 'About';
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
About;
end;
end.
download link;
http://rapidshare.com/files/129954683/DLL.rar.html
the cipher ;
1234
