CSDIL_PROGRAM_FILES in 32Bit/64Bit

[RWarnecke]

Auf einem Windows 64Bit wird CSIDL_PROGRAM_FILES bei einem 32Bit-Programm C:\Program Files (x86) und ein 64Bit-Programm C:\Program Files als Ergebnis liefern.

[hathor]

"Wer nach Hunden sucht, wird keine Katzen finden."

Die Frage ist falsch gestellt:
Nimm KNOWNFOLDERID:
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx
.
http://msdn.microsoft.com/en-us/wind.../gg463051.aspx
.
FOLDERID_ProgramFiles

GUID: {905e63b6-c1bf-494e-b29c-65b732d3d21a}
Display Name: Program Files
Folder Type: FIXED
Default Path: %ProgramFiles% (%SystemDrive%\Program Files)
CSIDL Equivalent: CSIDL_PROGRAM_FILES
Legacy Display Name: Program Files
Legacy Default Path: %ProgramFiles% (%SystemDrive%\Program Files)

[QuickAndDirty]

Und wie bekomme ich damit Raus ob z.B.
'c:\Programski Fileski\MYProgramm'
ein Ort in einem SpecialFolder ist?

Ich muss verhindern das ein Setup etwas in das "Programme" Verzeichnis installiert, Weil unsere Anwendung dafür noch nicht ausgelegt ist.

[hathor]

Das ist doch in den Links oben genau beschrieben:
Mit einem 32Bit-Programm bekommst Du auch NUR den 32Bit-Ordner! Siehe Anhang...

Ich würde von den WINDOWS-Programm-Pfaden "die Finger lassen".

Alternative - da ist es gleich, ob 32Bit oder 64Bit:

Delphi-Quellcode:

function SpecialDirectory(const iID: Integer): string;
var aPath  : array[0..MAX_PATH] of Char; pilTemp: PItemIDList;
begin
   try
      if SHGetSpecialFolderLocation(0, iID, pilTemp)=S_OK then begin
         if SHGetPathFromIDList(pilTemp, aPath) then begin
            Result := string(aPath);
         end else Result := ''; CoTaskMemFree(pilTemp);
      end else Result := '';
   except Result := '';
   end;
end;

function GetConfigPath: String;
var AppDir: String;
begin
  AppDir := SpecialDirectory(CSIDL_APPDATA)+'\DEIN PROGRAMM-NAME'; //DEIN PROGRAMM-NAME
  if DirectoryExists(AppDir) = false then mkdir(AppDir);
    result := AppDir+'\';
end;

[Luckie]

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

[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.

[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.

[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.