Delphi-PRAXiS
Seite 1 von 3  1 23      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Standardverzeichnisse: Ich brauche mal Eure Mitarbeit (https://www.delphipraxis.net/98947-standardverzeichnisse-ich-brauche-mal-eure-mitarbeit.html)

emsländer 4. Sep 2007 14:08


Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
 
Liste der Anhänge anzeigen (Anzahl: 1)
Da ich schon mitbekommen habe, das die API die Standardordner immer richtig anzeigt, habe ich ein kleines Testprogramm geschrieben, bei dem diese angezeigt werden. Zusätzlich werden noch Windowsversion, SP und Sprache angezeigt. Ich möchte Euch bitten, den Inhalt des Memofensters zu posten. Auch bitte ausländische Versionen. 32-64 Bit etc.

Danke im Voraus


Gruss

EL

SirThornberry 4. Sep 2007 14:10

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
 
Zitat:

Programmordner: C:\Programme
Dokumentenordner: C:\Dokumente und Einstellungen\All Users\Dokumente
Anwendungsdaten: C:\Dokumente und Einstellungen\All Users\Anwendungsdaten
Windowsversion: Microsoft Windows XP (version 5.1)
Servicepack: SP2
Windowslanguage: Deutsch (Deutschland)
Es wäre vielleicht besser wenn du zip-verwendest und dort direkt die Datei drin liegt und nicht erst noch ein Unterordner.

Gruber_Hans_12345 4. Sep 2007 14:13

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
 
Code:
Programmordner: C:\Program Files (x86)
Dokumentenordner: C:\Users\Public\Documents
Anwendungsdaten: C:\ProgramData
Windowsversion: (version )
Servicepack:
Windowslanguage: Deutsch (Österreich)
Windows Vista 64

Phoenix 4. Sep 2007 14:14

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
 
Zip auf jeden Fall - ich werde mir kein Rar installieren.

Aber ein Unterordner da drin muss sein - ich hasse es, wenn eine Zip bei 'hier extrahieren' dann meinen Desktop mit tausenden Files zumüllt ;-)

Daniel 4. Sep 2007 14:18

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
 
Programmordner: C:\Programme
Dokumentenordner: C:\Dokumente und Einstellungen\All Users\Dokumente
Anwendungsdaten: C:\Dokumente und Einstellungen\All Users\Anwendungsdaten
Windowsversion: Microsoft Windows XP (version 5.1)
Servicepack: SP2
Windowslanguage: Deutsch (Deutschland)

Luckie 4. Sep 2007 14:25

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
 
Also 7Zip kann auch rar entpacken. ;)

Code:
Programmordner: C:\Programme
Dokumentenordner: C:\Dokumente und Einstellungen\All Users\Anwendungsdaten
Anwendungsdaten: C:\Dokumente und Einstellungen\All Users\Anwendungsdaten
Windowsversion: Microsoft Windows XP (version 5.1)
Servicepack: SP2
Windowslanguage: Deutsch (Deutschland)
Aber warum machen wir das eigentlich?

borncrush 4. Sep 2007 14:29

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
 
So, dann möchte ich auch mal :stupid:

Zitat:

Programmordner: C:\Programme
Dokumentenordner: C:\Dokumente und Einstellungen\All Users\Dokumente
Anwendungsdaten: C:\Dokumente und Einstellungen\All Users\Anwendungsdaten
Windowsversion: Microsoft Windows XP (version 5.1)
Servicepack: SP2
Windowslanguage: Deutsch (Deutschland)
Die Angaben sind alle korrekt ermittelt worden.
:thumb: :mrgreen:

emsländer 4. Sep 2007 14:32

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
 
Zitat:

Zitat von Luckie
Also 7Zip kann auch rar entpacken. ;)

Code:
Programmordner: C:\Programme
Dokumentenordner: C:\Dokumente und Einstellungen\All Users\Anwendungsdaten
Anwendungsdaten: C:\Dokumente und Einstellungen\All Users\Anwendungsdaten
Windowsversion: Microsoft Windows XP (version 5.1)
Servicepack: SP2
Windowslanguage: Deutsch (Deutschland)
Aber warum machen wir das eigentlich?

Weil ich festgestellt habe, das diese Funktion:

Delphi-Quellcode:
function GetShellFolder(CSIDL: integer): string;
var
  pidl                  : PItemIdList;
  FolderPath            : string;
  SystemFolder          : Integer;
  Malloc                : IMalloc;
begin
  Malloc := nil;
  FolderPath := '';
  SHGetMalloc(Malloc);
  if Malloc = nil then
  begin
    Result := FolderPath;
    Exit;
  end;
  try
    SystemFolder := CSIDL;
    if SUCCEEDED(SHGetSpecialFolderLocation(0, SystemFolder, pidl)) then
    begin
      SetLength(FolderPath, max_path);
      if SHGetPathFromIDList(pidl, PChar(FolderPath)) then
      begin
        SetLength(FolderPath, length(PChar(FolderPath)));
      end;
    end;
    Result := FolderPath;
  finally
    Malloc.Free(pidl);
  end;
end;
mit dem Übergabewert 46 (CSIDL_COMMON_DOCUMENTS) bei mir bei Windows XP64 einen Leerstring zurückgibt.

Gruss

EL

Daniel 4. Sep 2007 14:33

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
 
Zitat:

Zitat von Luckie
Aber warum machen wir das eigentlich?

Keine Ahnung - aber ich find's cool. Außerdem sind meine Pfade am längsten. :mrgreen:

Programmordner: C:\Program Files
Dokumentenordner: C:\Users\Public\Documents
Anwendungsdaten: C:\ProgramData
Windowsversion: (version )
Servicepack:
Windowslanguage: German (Germany)


Hui - das ist falsch. Ist ein englisches Vista (32bit).

emsländer 4. Sep 2007 14:35

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
 
Zitat:

Zitat von Daniel
Zitat:

Zitat von Luckie
Aber warum machen wir das eigentlich?

Keine Ahnung - aber ich find's cool. Außerdem sind meine Pfade am längsten. :mrgreen:

Programmordner: C:\Program Files
Dokumentenordner: C:\Users\Public\Documents
Anwendungsdaten: C:\ProgramData
Windowsversion: (version )
Servicepack:
Windowslanguage: German (Germany)


Hui - das ist falsch. Ist ein englisches Vista (32bit).

Nunja, mir kommts nicht unbedingt auf die Windowsversion an. Das soll mir nur zur Info dienen. Wichtig sind mir die 3 Ordner.

Gruss

EL


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:14 Uhr.
Seite 1 von 3  1 23      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz