Jump to content
Fórum Script Brasil
  • 0

Crie e Use Dll's em seus Programa


Guest Crie e Use Dll's em seus pro
 Share

Question

Guest Crie e Use Dll's em seus pro

bem pessoal, andei meio afastado do forum durante um tempo, mas estou d volta!

bem, vou colocar aqui principalmente para iniciantes como criar dll's em delphi e usar em seus programas!

Criando a DLL!

1 - Abra o delphi!

2 - Crique em New -> Other;

3 - Escolha DLL;

depois da palavra library coloque o nome da dll, será: 'Serial', sem as aspas;

Depois da linha:

Classes, digite:

unction Chave(Pkey : INTEGER): INTEGER; export; // Criando a função
 begin
   PKey := 0123456789; //Nosso serial de exemplo 
  Chave := Pkey; 
  end;
exports
  Chave;
 begin
end.
Salve o projeto e depois compile; veja agora do diretorio onde você salvou o projeto que a dll foi criada; vamos ao projeto que ira usar a dll; 1-abra o delphi; 2-crie uma nova aplicação; 3-coloque um Edit(TEdit); 4-coloque um Button(TButton); agora salve o projeto com o nome TesteSerial dentro da pasta da dll; dê um clique duplo no button para colocarmos o código para a chamada da dll; depois da palavra 'implementation' coloque: Function ChaveC(Prodkey : Integer):Integer; external 'Chave.dll'; na procedure do button coloque;
procedure TForm1.Button1Click(Sender: TObject);
var
N, C : Integer;
begin
N := StrToInt(Edit1.Text);
C := ChaveC(StrToInt(Edit1.Text));
if N = C then
ShowMessage('Serial válido, você acertou!')
else
ShowMessage('Serial inválido!');
end;
end.

salve o projeto e compile depois é só testar!!!

abraços ate mais!!

VAGNER FRANCO

dúvidas quanto a este pequeno artigo ou solicitação do codigo fonte:

E-mail: [email protected]

Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649.1k
×
×
  • Create New...