Einzelnen Beitrag anzeigen

norwegen60

Registriert seit: 23. Dez 2007
Ort: Schwarzwald
504 Beiträge
 
Delphi 12 Athens
 
#5

AW: Bei Setup mit InnoSetup festellen ob Datenbank lokal

  Alt 21. Jan 2016, 20:30
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?
  Mit Zitat antworten Zitat