Remote computer name?

Win32 api funkcije.
Odgovori
alesk
Prispevkov: 231
Pridružen: 19.07.2002 10:24:59

Remote computer name?

Odgovor Napisal/-a alesk » 17.12.2009 11:55:00

Computer name vrne funkcija DSiGetComputerName. V primeru, če je aplikacija pognana preko remote desktopa, pa bi rad ugotovil tudi ime računalnika iz katerega je remote desktop pognan.

Kakšen predlog?

DayTripper
Prispevkov: 64
Pridružen: 24.03.2003 17:13:16

Remote computer name?

Odgovor Napisal/-a DayTripper » 17.12.2009 21:28:55

Koda: Izberi vse

 
RemotePC := GetEnvVarValue('CLIENTNAME');

Koda: Izberi vse

  function GetEnvVarValue(const VarName: string): string;
  var
    BufSize: Integer;  // buffer size required for value
  begin
    // Get required buffer size (inc. terminal #0)
    BufSize := GetEnvironmentVariable(
      PChar(VarName), nil, 0);
    if BufSize > 0 then
    begin
      // Read env var value into result string
      SetLength(Result, BufSize - 1);
      GetEnvironmentVariable(PChar(VarName),
        PChar(Result), BufSize);
    end
    else
      // No such environment variable
      Result := '';
  end;

 

ahotko
Prispevkov: 141
Pridružen: 28.10.2002 07:56:38

Remote computer name?

Odgovor Napisal/-a ahotko » 17.12.2009 22:15:30

tukaj je nekaj takega...
lp,
Aleš

alesk
Prispevkov: 231
Pridružen: 19.07.2002 10:24:59

Remote computer name?

Odgovor Napisal/-a alesk » 18.12.2009 11:30:25

Mucho gracias Aleš, deluje.

Odgovori