saber si estoy en red o local, o saber ip

[Milperrimo]

Saludos, necesito saber internamente en un programa ke tengo si el programa se esta corriendo a traves de la red o se esta corriendo en una maquina localmente alguien tiene alguna idea????? Me encontre una funcion de como poder obtener la direccion ip de la maquina donde estoy pero no se si esto me pueda servir de algo, alguien me comentaba ke podria obtener la ip de donde se esta corriendo la aplicacion y la de la maquina donde estoy y si las ips son iguales kiere decir que se esta corriendo localmente. pero no se como desarrollar esta idea mas, no se como obtener la ip de la red o del serividor si se esta corriendo en red. Alguien sabe???????

[Neftali [Germán.Estévez]]

Supongo de cuando hablas de red, se trata deque estás ejecutando el EXE directamente sobre la máquina de red.
Creo que si obtienes el path del ejecutable, de ahí sacas la unidad y miras de qué tipo es, te puede servir.



var
Unidad: string;
begin
// Extraer la unidad del ejecutable
Unidad := ExtractFileDrive(Application.ExeName);

// Tipo de Disco?
if (GetDriveType(PChar(Unidad)) = DRIVE_REMOVABLE) or
(GetDriveType(PChar(Unidad)) = DRIVE_FIXED) then begin
MessageDlg('LOCAL', mtInformation, [mbOK], 0);
end
else begin
MessageDlg('No LOCAL', mtInformation, [mbOK], 0);
end;

[Milperrimo]

Exelentee, esto era justo lo que necesitaba, graciassss