Feststellen, ob Programm über Netzwerk gestartet wurde?

[jaikai]

Naamd,

ich bin ein absoluter Netzwerk-Laie, deshalb hab ich ne vermutlich dumme Frage.

Das Programm liegt auf Rechner X im Netzwerk.
Ich sitze vor dem Rechner Y - wie kann man, möglichst simpel, feststellen, ob die *exe auf einem anderen Rechner im Nezz oder auf dem lokalen Rechner gestartet wurde?



Danke

[arbu man]

Also über paramstr(0) kann man den Dateinamen der Exe herrausfinden.

Du musst also nur herrausfinden ob der Rechnername im paramstr(0) vorkommt.

mfg, Björn

[Flare]

Zitat von arbu man:

Du musst also nur herrausfinden ob der Rechnername im paramstr(0) vorkommt.

Dumm nur, wenn jemand einen den Ordner oder einen übergeordneten Ordner gleich dem PC-Namen benennt.
Aber da der PC-Name eh bloß am Anfang stehen kann, kann man das eingrenzen.
(Oder steht bei einer Domäne noch die Domäne davor? Ich kenne mich da nicht so aus)


Flare

[FriFra]

Noch dümmer, wenn jemand eine Netzwerk-Freigabe gemappt hat ...

Prüfe einfach, ob am Anfang von ParamStr(0) "\\" vorkommt (auch ein derartiger Zugriff auf eine lokale Freigabe ist ein Netzzugriff!) und im anderen Fall musst Du prüfen, ob das Laufwerk ein Netzlaufwerk ist (s. Code-Library).

[bitsetter]

Kleine Ergänzung:

Delphi-Quellcode:

function IsNetzwerk: boolean;
var
   Pfad: AnsiString;
begin
  Result:= false;
  Pfad:= ExtractFilePath(ParamStr(0));
    if length(Pfad)> 1 then 
    begin
    Result:= boolean(Pos('\\', Pfad));
    if not Result then
    Result:= GetDriveType(PChar(Pfad))= DRIVE_REMOTE;
    end;
end;