Fórum Ping com IDIcmpClient #558436

boa noite,

Preciso em uma aplicação multi-Device fazer um teste para conferir se o meu servidor datasnap esta online, testei esse código abaixo:

function ExecutaPing(HostName: String): boolean;
var
PckEntregue : Array[1..3] of Integer;
ICMP : TIdIcmpClient;
ABuffer: String;
begin
try
ABuffer:=HostName+StringOfChar(' ',255);
ICMP := TIdIcmpClient.Create(nil);
try
ICMP.PacketSize := 32;
ICMP.Host := HostName;
ICMP.ReceiveTimeout := 500;
ICMP.Ping;//(ABuffer);
if ICMP.ReplyStatus.BytesReceived > 0 then
result := true
else
result := false;
except
result := false;
end;
finally
ICMP.Destroy;
end;
end;

para esse código funcionar, tenho que compilar a aplicação, ir no .exe executar com administrador. Só que estou precisando executar esse function dentro da minha aplicação.

como faço para executar essa function dentro do meu sistema como administrador?



grato.