Kontext-Hilfe anno 2017 (format und dastellung)

[zeras]

Zitat von Bernhard Geyer:

Wir kopieren die CHM-Datein wenn nötig nach <AppData>

Das hatte ich auch gemacht. Mit der Funktion, die ich irgendwo aus dem Netz gefunden hatte

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;

habe ich ermittelt, ob das ein die Hilfe schon auf dem lokalen Rechner liegt oder im Netz. Aber jetzt habe ich mal mein Programm vom einem NAS gestartet, wo das NAS gemapt ist auf "Z". Dann schlägt der Test aber fehl.
Wie ermittelt ihr, dass es sich um ein Netzlaufwerk handelt?

[Delphi.Narium]

Eventuell ExpandUNCFileName

[zeras]

Zitat von Delphi.Narium:

Eventuell ExpandUNCFileName

Danke für die Info. Sieht so aus, als wenn mir das helfen könnte.
Werde das gleich mal in mein neues Release einbauen.

[himitsu]

Nach ExpandUNCFileName wird sein Netzwerktest immer mit True antworten, weil der Pfad dann definitiv mit \\ beginnen wird.

Na als Erstes solltest du mal nachsehn was GetDriveType für als Typ nennt.

Und ich wette ich kenn den eigentlichen Fehler, aber daran bist du selber Schuld, weil du ignorierst, was dir dein Compiler sagt und das sogar Mehrmals

Zitat:

AnsiString, PChar und Delphi 10.2 Tokyo Professional

PS: Result := boolean(Pos('\\', Pfad)); -> Result := StartsStr(Pfad, '\\');