Retorna o ip da máquina no momento da conexão
Function GetIP:string;
//--> Declare a Winsock na clausula uses da unit
var
WSAData: TWSAData;
HostEnt: PHostEnt;
Name:string;
begin
WSAStartup(2, WSAData);
SetLength(Name, 255);
Gethostname(PChar(Name), 255);
SetLength(Name, StrLen(PChar(Name)));
HostEnt := gethostbyname(PChar(Name));
with HostEnt^ do
begin
Result := Format('%d.%d.%d.%d',
[Byte(h_addr^[0]),Byte(h_addr^[1]),
Byte(h_addr^[2]),Byte(h_addr^[3])]);
end;
WSACleanup;
end;
Por: Fernando Dos Santos Amador
Instalar o Quick Report no Delphi 7
Os Componentes do Quick Report estão inclusos no cd Delphi 7, apenas não são instalado, para tanto siga os seguitens passos:
Abra o Delphi, vá em COMPONENT -> INSTALL PACKAGES..., clique em ADD e localize o arquivo c:\arquivos de
programas\borland\delphi7\bin\dclqrt70.bpl.
Agora vc já poderá ver a paleta do QUICK REPORT no delphi. E ela será a última paleta, aí cabe a vc organizar!!!
Por: Fábio Corrêa
Executar programa associado
Executa programa associado e carrega arquivo informado(imagem, doc, http, email)
ShellExecute(Handle, 'open', PChar(Edit1.Text), '', '', SW_SHOWNORMAL);
ShellExecute(Handle, 'open', 'c:docbar.doc' , '', '', SW_SHOWNORMAL);
Isto tem o mesmo efeito do duplo clique no explorer.
Se a função for bem sucedida o valor de retorno é o handle da aplicaçao que esta sendo executada, ou o handle do servidor da
aplicaçao DDE.
Se a funçao falhar o valor de retorno é menor ou igual a 32.
Esta técnica também pode ser usada para imprimir um arquivo especificado substituindo 'open' por 'print'.
Por: Joaquim Antonio Vila Real