Erkennen von Remote Desktop

[Alfonso]

Hallo,
ich muss in meinem Programm (Delphi 2006) erkennen, ob es über Remote Desktop aufgerufen wird.
Hat jemand eine Idee wie man das rausbekommt?

Gruß
Alfonso

[Luckie]

Darf man fragen warum?

[Assarbad]

Zitat von Luckie:

Darf man fragen warum?

Bspw. um Double-Buffering abzuschalten, da dies über RDP sinnlos ist.

@Alfonso: SystemParametersInfo

Oops, knapp daneben ist auch vorbei: GetSystemMetrics mit SM_REMOTESESSION.

[Luckie]

Wieder was gelernt.

[Assarbad]

Vielleicht doch noch ein paar Worte dazu warum Double-Buffering sinnlos ist über RDP.

RDP basiert darauf, daß bei kleiner Bandweite möglichst performant der Eindruck eines flüssigen Arbeitens vermittelt werden kann. Double-Buffering ist die Methode seine Inhalte erst auf einen DC im Speicher zu zeichnen und diesen dann komplett (also quasi wie eine Bitmap) auf den Bildschirmbereich zu kopieren der aktualisiert werden soll. Während das lokal eine sinnvolle Vorgehensweise ist, steht diese bei RDP dem vorgenannten Ziel entgegen: schnell zu sein. Denn während es in der Tat lokal schneller ist einen kompletten DC zu kopieren, ist es über RDP so, daß wir eine weitaus größere Datenmenge als unbedingt notwendig übertragen müssen, was an der Geschwindigkeit kratzt.

[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