Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Robz Lancaster

Entender funcionamento de função

Recommended Posts

Bem Pessoal eu estava a Procura de uma função que me desse o Mac Adress

e achei essa função:

OBS: Sou Iniciante Em Delphi.

        function MacAddress: string;
var
Lib: Cardinal;
Func: function(GUID: PGUID): Longint; 
stdcall;
GUID1, GUID2: TGUID;

begin
Result := '';
Lib := LoadLibrary('rpcrt4.dll');
if Lib <> 0 then
begin
 @Func := GetProcAddress(Lib, 'UuidCreateSequential');
 if Assigned(Func) then
 begin
   if (Func(@GUID1) = 0) and
      (Func(@GUID2) = 0) and
      (GUID1.D4[2] = GUID2.D4[2]) and
      (GUID1.D4[3] = GUID2.D4[3]) and
      (GUID1.D4[4] = GUID2.D4[4]) and
      (GUID1.D4[5] = GUID2.D4[5]) and
      (GUID1.D4[6] = GUID2.D4[6]) and
      (GUID1.D4[7] = GUID2.D4[7]) then
   begin
     Result :=
       IntToHex(GUID1.D4[2], 2) + '-' +
       IntToHex(GUID1.D4[3], 2) + '-' +
       IntToHex(GUID1.D4[4], 2) + '-' +
       IntToHex(GUID1.D4[5], 2) + '-' +
       IntToHex(GUID1.D4[6], 2) + '-' +
       IntToHex(GUID1.D4[7], 2);
   end;
 end;
end;
end;

 

Bem , existe muitas instruções que eu Não conheço , e queria saber se vocês podem me explicar como funcionam tais como:

stdcall;

GUID1, GUID2: TGUID; [bem eu entendi que esses vão ser os tipos da variavel, mas quero saber, qual são os tipos de variaveis , ou seja quero saber se existe uma lista de tipos de variaveis diferentes dessas comuns(int,Char...etc)].

GetProcAddress [bem essa instrução , eu nem sabia que existia eu quero me aprofundar nesses tipos de comandos , ou seja onde eu acho esses tipos de instruções]

Resto:Bem Se poderem me dar dicas desses tais comandos/Instruções Para eu ver como eles funcionam me ajudaria muito.

Obrigado pela Atenção.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Robz Lancaster,

 

GUID1, GUID2: TGUID;

 

 

GUID1, GUID2 são duas variáveis declaradas sob o tipo TGUID. Funciona da mesma forma que declarar um integer.

 

Cara, sem querer ser chato mas, você já leu o Help alguma vez? A maior parte das suas dúvidas estão respondidas no Help da própria ferramenta. Pare com o cursor em cima da palavra GetProcAddress, por exemplo e pressione CTRL+F1. O Help vai abrir exatamente nessa função. Dá uma pesquisada lá antes.

 

joia.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

stdCall faz o delphi compilar a chamada da função usando estruturas compatíveis com a linguagem C e DLL.

IntToHex converte um número em seu formado decimal para seu formato em Hex (string HEX)

GetProcAddress retorna o endereço da função informada

Compartilhar este post


Link para o post
Compartilhar em outros sites

Robz Lancaster,

 

GUID1, GUID2: TGUID;

 

 

GUID1, GUID2 são duas variáveis declaradas sob o tipo TGUID. Funciona da mesma forma que declarar um integer.

 

Cara, sem querer ser chato mas, você já leu o Help alguma vez? A maior parte das suas dúvidas estão respondidas no Help da própria ferramenta. Pare com o cursor em cima da palavra GetProcAddress, por exemplo e pressione CTRL+F1. O Help vai abrir exatamente nessa função. Dá uma pesquisada lá antes.

 

joia.gif

 

Obrigado Man, eu Não sabia isso sobre CRTL+F1.

#bdexterholland

 

Obrigado Também Pela Explicação da Instrução GetprocAddress.

 

#Topic

Bem , Na onde eu Acho Esses comandos e a sintaxe deles ?

E mudando um pouco de Assunto eu tenho uma nova duvida:

 

Bem Eu tenho meu Exe (mypro.exe) e tenho um Outro Exe(ragnarok.exe) Bem eu quero que toda vez que executarem o ragnarok.exe Passe Pelo mypro.exe ?

Obrigado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Robz,

 

Bem , Na onde eu Acho Esses comandos e a sintaxe deles ?

No Help cara. Faz o quê eu te falei: CTRL + F1. O Help do Delphi é o melhor material de consulta que existe sobre a linguagem.

 

smile.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.