CSDIL_PROGRAM_FILES in 32Bit/64Bit

[QuickAndDirty]

Ich will nicht IN einen Specialfolder installieren.

Ich will verhindern das jemand einen Ordner angibt der ein Specialfolder ist. Insbesondere die WOW64 File System Redirection macht das recht schwer.

Ich habe jetzt folgende Lösung aus dem Guide den du Verlinkts hast zusammen gestrickt.

Delphi-Quellcode:

Function CheckForProgramFilesPath(aPath:String):Boolean;
var Ppath:String;
    i:integer;
  const PathVariable:Array[0..5] of string=(
                                            '%ProgramFiles%',
                                            '%ProgramFiles(x86)%',
                                            '%ProgramW6432%',
                                            '%CommonProgramFiles%',
                                            '%CommonProgramW6432%',
                                            '%CommonProgramFiles(x86)%'
                                           );

  function ExpandEnvStr(const szInput: string): string;
  var szBuf:String;
      r : Cardinal;
  begin
    result := '';
    try
      r := ExpandEnvironmentStrings(pChar(szInput), nil, 0);
      if r > 0 then
      Begin
        SetLength(szBuf, r);
        ExpandEnvironmentStrings(pChar(szInput), PChar(szBuf), r);
        result := PChar(szBuf);
      End;
    except
      Result := '';
    end;
  end;
{
  Function UnExpandEnvPath(const szPath: string):String;
  var szBuf:String;
      cchBuf:Cardinal;
  Begin
    setLength(szBuf, MAX_PATH);
    cchBuf := MAX_PATH;
    if PathUnExpandEnvStrings( Pchar(szPath),@szBuf[1],cchBuf) then
      Result := Pchar(szBuf)
    else
      Result := szPath;
  End;
}
  Function TestPath(ReferencePath,aTestPath:String):Boolean;
  Begin
    Result := (ReferencePath <> '') and
              (length(atestPath) > length(ReferencePath)) and
              (Ansipos(ReferencePath,aTestPath) = 1);
  End;

Begin
  result := false;
  aPath := ExpandUNCFileName(aPath);
  for I := 0 to 5 do
  Begin
    PPath := ExpandEnvStr(PathVariable[i]);
    if TestPath(PPath,aPath) then
    begin
      Result := true;
      exit;
    end;
  End;
End;

Nur weiß ich nicht ob das funktioniert.

[QuickAndDirty]

Zitat von Luckie:

Warum nicht ParamStr(0) oder ist es nicht das eigene Programm?

Ich will eine Installation in den Programme Ordner verhindern.
Das Problem ist zu prüfen ob der angegebene Pfad der Programme Pfad ist.

[DeddyH]

Zitat von QuickAndDirty:

Ich will eine Installation in den Programme Ordner verhindern.

Bist Du Dir sicher, dass das der richtige Weg ist? Immerhin ist das ja der vorgesehene Installationsordner.

[Bummi]

@DeddyH
Für manche Anwendungsfälle mag man den Nachteil den diese Ordner mit sich bringen vermeiden wollen. (Ich weiß dass das nicht Microsoftkonform ist, aber wenn man schaut wie es Microsoft mit den seinen Programmen bzgl. dieses Punktes bisweilen hält, relativiert sich das)

[DeddyH]

Das will ich gar nicht bestreiten, aber das sind dann doch eher Ausnahmefälle. Wenn ein Programm Probleme bekommt, weil es in diesem Ordner installiert wurde, liegt der Verdacht nahe, dass man etwas falsch gemacht hat (Schreiben ins Programmverzeichnis ist da immer ein Kandidat).

[Sir Rufo]

Genau das wollte er ja auch mit der Aussage nahe bringen, dass das Programm dafür noch nicht vorbereitet ist.

Allerdings würde ich versuchen bei der Installation dem Programmverzeichnis die entsprechenden Schreibrechte mitzugeben. Das Loch wird dadurch auch nicht größer als es für die Funktionsweise des Programms benötigt wird.

[Dalai]

Zitat von QuickAndDirty:

Nur weiß ich nicht ob das funktioniert.

Das funktioniert im Prinzip und ist dabei eine der beiden einzigen Möglichkeiten (die ich kenne), von einem 32 Bit Programm an den Pfad "%SystemDrive%\Program Files" eines 64 Bit OS zu kommen. Die andere Möglichkeit wäre das Auslesen von [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion], Wert ProgramFilesDir aus der Registry mit dem Flag KEY_WOW64_64KEY für die Funktion OpenKey(). Ein ähnliches Problem hatte ich in diesem Thread vor einem halben Jahr geschildert und mit der Verwendung beider Methoden auch gelöst.

Im Grund schließe ich mich aber den Vorschreibern an, dass es besser wäre, die Installation zuzulassen und die Zugriffsrechte entsprechend zu setzen.

MfG Dalai

[QuickAndDirty]

Ich glaube das Problem ist das ich in diesem Ordner keine Freigaben machen kann.
irgendwas war zumindest da, was macht das unser Programm so wie es jetzt ist nicht im Programme Ordner funktioniert,
obwohl NetShareAdd + Access_All
und SetFileSecurityRecursive + Userid #1#1#0#0#0#0#0#1#0#0#0#0 + DACL mit Vollzugriff
usw. gesetzt wird.

Um das Windows konform zu machen müssen wir noch ne menge Arbeit reinstecken...und da das keine Features sind die der Kunde würdigt ist das für Kunden Quasi leerlauf....entwicklungsstillstand...


Besonderen Dank euch, Dalai, Hathor, DanielProgramming, für die Info.
@All: ich weiß es ist nicht der beste weg, aber ich muss mir meine Zeit einteilen. So ist das Problem schon mal vom Tisch des Support, die keine Installationen mehr in Ordnung bringen müssen, Ich kann denen nicht sagen sie sollen mal eben 3-6 Monate mit dem Problem leben bis ich die beste aller Lösungen umgesetzt habe.

[himitsu]

Nur mal dem ganzen Verzeichnisstringvergleichen einhalt zu gebieten...

Dein Programm hat also Probleme, wenn es in einem Verzeichnis installiert ist, wo es keine Schreibrechte besitzt, weil es immernoch in seinem eigenem Programmverzeichnis rumschreibt?

Dann wäre es besser, wenn du prüfst, ob es Schreibrechte besitzt und nicht einfach nur wahllos mit irgendwelchen Verzeichnisnamen vergleichst.
Oder du machst es wie alle Programme und prüfst garnichst, sondern vertraust darauf, daß der Benutzer es ordentlich installiert. (und erwähnst es wenigstens spätestens im Setup)
Oder du reparierst dein Programm, so daß es endlich ordnungsgemäß arbeitet. (was man eigentlisch schon seit mindestens Win200 hätte machen sollen)

Tipp:
- Es gibt noch mehr Verzeichnisse, wo man nicht schreiben darf.
- Der Benutzer kann die Rechte ändern, wie er lustig ist.
- Ist dir bekannt, daß man das selbe Verteichnis unterschiedlich ansprechen kann? (lange Namen, kurze 8.3-Name, UNC-Pfade, Hardlinks, Softlinks, Verzeichnis/Partition mehrfach gemountet, ...)
- ...

[WM_CLOSE]

Tipp: Schreib ganz oben in deine EULA, die beim Setup angezeigt wird:
"Nicht ins Programme-Verzeichnis installieren, da es sonst zu Fehlfunktionen führen kann!". Damit ist das Problem vorerst umgangen. (Bis auf DA-User, die es trotzdem falsch installieren)

Danach überarbeitest du das Programm, dass es ins Benutzerverzeichnis bzw. ins Allusers-Verzeichnis schreibt. Es gibt genug dazu hier im Forum.