Ich glaube ich habe eine einfachere Möglichkeit gefunden.
Delphi-Quellcode:
sPcName = lowercase(GetComputerNameString);
if (pos(sPcName, lowercase(sServerName)) > 0)
or // PC-Name Teil des Servernamens
(pos('
local', lowercase(sServerName)) > 0)
or // LOCAL Teil des Servernamens, z.B. LOCALHOST
(pos('
127.0.0.1', sServerName) > 0)
then // 127.0.0.1 des Servernamens
MsgBox('
Angegebener Server ist lokaler Server', mb_Infomation, MB_OK);
Oder spricht da was dagegen?