Как можно проверить, запущена программа с локального диска или с сетевого окружения, то есть с сети

var
  DriveType: TDriveType;
  DriveChar: string;
begin
  DriveChar:=ExtractFileDrive(ParamStr(0));
  DriveType:=TDriveType(GetDriveType(PChar(DriveChar + '')));
  case driveType of
    dtFixed: ShowMessage('Fixed ' + DriveChar + '');
    dtNetWork: ShowMessage('NetWork ' + DriveChar + '');
  end;
end;

Другое по теме:

• Состояние подключения к сети
• Как подключать сетевые диски
• Как подключить и отключить сетевые диски