If hardware ID is found in my database, continue. If not, Deregister and exit.
Also, if no connection to my server, continue. (As my exe also works offline)
I dont know anything about Delphi still what I tried so far?
Code: Select all
function GetURLAsString(const aURL: string): string;
var
lHTTP: TIdHTTP;
begin
lHTTP := TIdHTTP.Create(nil);
try
lHTTP.Get(aURL);
finally
lHTTP.Free;
end;
end;
procedure Enigma_Plugin_OnFinal;
begin
var
pcHardware : string;
pcHardware := string(EP_RegHardwareID);
GetURLAsString('http://www.example.com/index.php?hwid='+ pcHardware);
end;
If there is a return value provided from my server or if there is no internet connection it just shows Internal Protection Error, please contact to author!