Erkennen von Remote Desktop

[Alfonso]

In meinem Programm kann man Dateien in die Datenbank kopieren.
Ich bitte meinen Anwemdern nicht den normalen Dateiauswahldialog an, sondern habe auf basis von TFilelistbox eine eigene Dateiauswahl gemacht. Wenn ich mein Programm über Remotedesktop aufrufe, soll das Quell-Laufwerk natürlich nicht C:, D: oder ähnliches sein, da dieses ja auf dem Remoterechner liegt. Ich muss in diesem Fall erkennen, welche Laufwerke er Remote als lokale Ressource eingebunden hat, in dem ich folgendes mache:

Delphi-Quellcode:

for i := 67 to 90 do
  begin
   if DirectoryExists('\\tsclient\'+chr(i)+'\') then
    cbbDrive.Items.Add('Remote '+chr(i));
  end;

Dann werden diese "Netzlaufwerke" als Quelllaufwerke angezeigt.

Oder gibt es etwas einfacheres?

Gruß
Alfonso

[Assarbad]

Zitat von Alfonso:

Oder gibt es etwas einfacheres?

Da müßtest du mal Remko fragen (der ist auch Benutzer hier, aber dann ggf. auf Englisch fragen ).

Es könnte durchaus eine der WTS*-Funktionen besser geeignet sein, aber ich müßte mich erst einlesen und er weiß es vielleicht ohne Nachgucken.

[himitsu]

Selbst wenn es anders besser geht,
aber so sieht es bestimmt etwas übersichtlicher aus.

Delphi-Quellcode:

var c: Char;

for c := 'C' to 'Z' do
  if DirectoryExists('\\tsclient\' + c) then
    cbbDrive.Items.Add('Remote ' + c);

Du könntest doch immer nach Remote-Laufwerken suchen und alle lokalen ( X: ) und Remote-Laufwerke ( \\tsclient\X ) anbieten, egal wo das Programm läuft.

Eventuell möchte auch mal jemand via Remote ein lokales Laufwerk nutzen und umgekehrt.

[Remko]

Zitat von Assarbad:

Zitat von Alfonso:

Oder gibt es etwas einfacheres?

Da müßtest du mal Remko fragen (der ist auch Benutzer hier, aber dann ggf. auf Englisch fragen ).

Es könnte durchaus eine der WTS*-Funktionen besser geeignet sein, aber ich müßte mich erst einlesen und er weiß es vielleicht ohne Nachgucken.

Sadly there is not Wts* or even WinStation* function that can do this, but I tested the code below and that's the only way I see to enumerate all Client Drives:

Delphi-Quellcode:

uses
  JwaWinType, JwaWinNetWk; // Jedi Apilib, can also use JwaWindows instead of Single Units

const
  WNNC_NET_TERMSRV     = $00360000;

type
  TNetResourceArray = array[0..ANYSIZE_ARRAY-1] of NETRESOURCE;
  PNetResourceArray = ^TNetResourceArray;

procedure TForm3.Button1Click(Sender: TObject);
var
  NetResPtr: PNetResourceArray;
  ProviderName: array[0..MAX_PATH] of Char;
  BufSize: DWORD;
  hEnum: DWORD;
  Count: DWORD;
  Res: Cardinal;
  i: Integer;
begin
  // Get Provider Name (should be 'Microsoft Terminal Services')
  BufSize := Length(ProviderName) * SizeOf(Char);
  ZeroMemory(@ProviderName[0], BufSize);
  Res :=  WNetGetProviderName(WNNC_NET_TERMSRV, ProviderName, BufSize);
  if Res <> NO_ERROR then
  begin
    // Handle the Error (call WNetGetLastError for more info), raise exception..
  end;

  Memo1.Lines.Add(Format('ProviderName=%s', [ProviderName]));
  Res := WNetOpenEnum(RESOURCE_CONNECTED, RESOURCETYPE_ANY, 0, nil, hEnum);
  if Res = NO_ERROR then
  begin

    // return as many entries as possible
    Count := DWORD(-1);

    // Allocate a some memory, 16 KB is typical size per docs
    BufSize := 16384;
    Memo1.Lines.Add(Format('Allocate %d Bytes', [BufSize]));
    GetMem(NetResPtr, BufSize);
    Res := WNetEnumResource(hEnum, Count, NetResPtr, BufSize);

    while Res = ERROR_MORE_DATA do
    begin
      Inc(BufSize, SizeOf(NETRESOURCE));
      Memo1.Lines.Add(Format('Allocate %d Bytes', [BufSize]));
      ReAllocMem(NetResPtr, BufSize); // Alloc more...
      Count := DWORD(-1);
      Res := WNetEnumResource(hEnum, Count, NetResPtr, BufSize);
    end;

    if Res = NO_ERROR then
    begin
      Memo1.Lines.Add(Format('Count=%d', [Count]));
      for i := 0 to Count - 1 do
      begin
        if lstrcmpi(NetResPtr^[i].lpProvider, @ProviderName[0]) = 0 then
        begin
          Memo1.Lines.Add(Format('Found TSClient Drive: %s', [NetResPtr^[i].lpRemoteName]));
        end
        else begin
          Memo1.Lines.Add(Format('Found non TSClient Drive: %s', [NetResPtr^[i].lpRemoteName]));
        end;
      end;
    end
    else begin
      Memo1.Lines.Add(Format('WNetEnumResource returned %d', [Res]));
    end;

    FreeMem(NetResPtr);
    WNetCloseEnum(hEnum);
  end
  else begin
    Memo1.Lines.Add(Format('WNetOpenEnum returned %d', [Res]));
  end;
end;

end.

On my testsystem the output is:
ProviderName=Microsoft Terminal Services
Allocate 16384 Bytes
Count=3
Found TSClient Drive: \\tsclient\Z
Found TSClient Drive: \\tsclient\C
Found TSClient Drive: \\tsclient\D

[Dezipaitor]

Raymond Chen hat auch was geschrieben, wann man auf RDP prüfen sollten und warum:
http://blogs.msdn.com/b/oldnewthing/...03/508694.aspx

[gmc616]

Wird da nicht die Umgebungsvariable "SESSIONNAME" gesetzt?

Wenn ich mich recht entsinne, enthält SESSIONNAME den Wert "RDP" auf den ersten 3 Zeichen.

Wie zuverlässig das ist, weiß ich allerdings nicht zu sagen.

[Dezipaitor]

Zitat von gmc616:

Wird da nicht die Umgebungsvariable "SESSIONNAME" gesetzt?

Wenn ich mich recht entsinne, enthält SESSIONNAME den Wert "RDP" auf den ersten 3 Zeichen.

Wie zuverlässig das ist, weiß ich allerdings nicht zu sagen.

Code:

SET SESSIONNAME=RDPbla
callmyapp.exe

[himitsu]

Zitat von Dezipaitor:

Code:

SET SESSIONNAME=RDPbla
callmyapp.exe

OK, letztendlich kann man alle Tests mehr oder weniger leicht umgehen.

Aber wenn man mal davon ausgeht, daß da keiner absichtlich was verstellt, warum soll man dann sowas nicht nutzen?

Dieses läßt sich sogar recht einfach in einer Batchdatei prüfen.