Fórum Virus em Executável #349038

Eureka

Descobri o que está causando isso. Não é vírus. É uma função que tenho no sistema para verificar o nome do servidor (hostName) utilizando o IP quando se está em uma estação.
Acho que esse anti vírus é que é pichuleba.

A função que uso é essa:
function VerificaNomeServidor(VIP: string): string;
// Retorna o Host onde seu TCP/IP está conectado
// Requer a Winsock declarada na clausula uses da unit
var
strHost: string;
pszIPAddress: PChar;
pReturnedHostEnt: PHostEnt;
InternetAddr: u_long;
GInitData: TWSADATA;
begin
strHost := ´´;
if WSAStartup($101, GInitData) = 0 then
begin
pszIPAddress := StrAlloc(Length(VIP) + 1);
StrPCopy(pszIPAddress, VIP);
InternetAddr := Inet_Addr(pszIPAddress);
StrDispose(pszIPAddress);
pReturnedHostEnt := GetHostByAddr(PChar(@InternetAddr), 4, PF_INET);
try
strHost := pReturnedHostEnt^.h_name;
WSACleanup;
Result := strHost;
except
end;
end;
end;

Alguém conhece outra maneira de se descobrir o nome do servidor via estação?

Obrigado