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

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

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

Издевательство над сис.админом: "Заходи, гостем будешь..."

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;