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

SergeyS

Дата: 12.05.2011 12:33:38

Как узнать от куда запущена программа, с сетевого ресурса (имя сетевого компьютера) или с локального компьютера? Если даже сетевой ресур подключен как диск, то нужно узнать имя сетевого компьютера.

Мимопроходящий

Дата: 12.05.2011 12:37:10

Hello, SergeyS!
You wrote on 12 мая 2011 г. 9:33:38:

SergeyS
Как узнать от куда запущена программа, с сетевого ресурса (имя сетевого компьютера) или с локального компьютера?

"внутри" программы, или "снаружи" ?

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4

Dimitry Sibiryakov

Дата: 12.05.2011 12:52:39

SergeyS
Если даже сетевой ресур подключен как диск, то нужно узнать имя сетевого компьютера.

ParamStr(0) в руки и узнавай сколько влезет.

Posted via ActualForum NNTP Server 1.4

SergeyS

Дата: 12.05.2011 12:54:49

Программа сама должна определить от куда она запущена...
нашёл вот это:

type
TDriveType = (dtUnknown, dtNoDrive, dtFloppy, dtFixed, dtNetwork, dtCDROM, dtRAM);
....
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;

но вот если прога запущена с диска (подключенный сетевой ресур), то она не вы имя сетевого компа... Может быть есть функция какая нить которая сразу может выдать инфу, с локального или сетевого компа запущена прога?

SergeyS

Дата: 12.05.2011 12:59:58

автор
ParamStr(0) в руки и узнавай сколько влезет.

ParamStr(0) - это понятно, вот только если сетевой ресурс подключен как диск, то сразу не узнаешь сетевой ли он или локальный...

Мимопроходящий

Дата: 12.05.2011 13:00:46

Hello, SergeyS!
You wrote on 12 мая 2011 г. 9:54:49:

SergeyS
имя сетевого компа

http://msdn.microsoft.com/en-us/library/aa385453%28v=vs.85%29.aspx

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4

Уто как, а как же!!!

Дата: 12.05.2011 13:02:26

SergeyS
Может быть есть функция какая нить которая сразу может выдать инфу, с локального или сетевого компа запущена прога?

Давно уже, ты не знал? GetInfoAboutRunnigModule

Dimitry Sibiryakov

Дата: 12.05.2011 13:10:08

SergeyS
ParamStr(0) - это понятно, вот только если сетевой ресурс подключен как диск, то сразу не узнаешь сетевой ли он или локальный...

Т.е. ты открыто признаёшь, что даже не пытался читать тобой же приведённый код?..

Posted via ActualForum NNTP Server 1.4

SergeyS

Дата: 12.05.2011 14:26:15

1. я же сказал, что из ParamStr(0) сразу не узнаешь с сетевого или локального компа прога запущена, т.е. нужно ещё использовать дополнительные функции...
2. Прочитайте вопрос внимательнее. В скобках написано: узнать имя сетевого компьютера.

Barmaley57

Дата: 12.05.2011 14:31:50

SergeyS
1. я же сказал, что из ParamStr(0) сразу не узнаешь с сетевого или локального компа прога запущена, т.е. нужно ещё использовать дополнительные функции...

Ну так чем WNetGetConnection не устраивает?