AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
Thema durchsuchen
Ansicht
Themen-Optionen

Standardverzeichnisse: Ich brauche mal Eure Mitarbeit

Ein Thema von emsländer · begonnen am 4. Sep 2007 · letzter Beitrag vom 4. Sep 2007
Antwort Antwort
Seite 1 von 3  1 23      
Benutzerbild von emsländer
emsländer

Registriert seit: 21. Aug 2004
Ort: Lengerich
658 Beiträge
 
RAD-Studio 2009 Ent
 
#1

Standardverzeichnisse: Ich brauche mal Eure Mitarbeit

  Alt 4. Sep 2007, 15:08
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
Angehängte Dateien
Dateityp: zip showfolder_112.zip (265,2 KB, 44x aufgerufen)


Narben am Körper sind ein Zeichen dafür, das man gelebt hat.
Narben auf der Seele sind ein Zeichen dafür, das man geliebt hat.
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit

  Alt 4. Sep 2007, 15:10
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.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Gruber_Hans_12345

Registriert seit: 14. Aug 2004
1.438 Beiträge
 
Delphi 2007 Professional
 
#3

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit

  Alt 4. Sep 2007, 15:13
Code:
Programmordner: C:\Program Files (x86)
Dokumentenordner: C:\Users\Public\Documents
Anwendungsdaten: C:\ProgramData
Windowsversion: (version )
Servicepack:
Windowslanguage: Deutsch (Österreich)
Windows Vista 64
Gruss Hans

2B or not 2B, that is FF
  Mit Zitat antworten Zitat
Benutzerbild von Phoenix
Phoenix
(Moderator)
Online

Registriert seit: 25. Jun 2002
Ort: Hausach
7.639 Beiträge
 
#4

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit

  Alt 4. Sep 2007, 15:14
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
Sebastian Gingter
Phoenix - 不死鳥, Microsoft MVP, Rettungshundeführer
Über mich: Sebastian Gingter @ Thinktecture Mein Blog: https://gingter.org
  Mit Zitat antworten Zitat
Daniel
(Co-Admin)

Registriert seit: 30. Mai 2002
Ort: Hamburg
13.920 Beiträge
 
Delphi 10.4 Sydney
 
#5

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit

  Alt 4. Sep 2007, 15:18
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)
Daniel R. Wolf
mit Grüßen aus Hamburg
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#6

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit

  Alt 4. Sep 2007, 15:25
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?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von borncrush
borncrush

Registriert seit: 18. Dez 2005
Ort: Berlin
115 Beiträge
 
Delphi XE7 Enterprise
 
#7

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit

  Alt 4. Sep 2007, 15:29
So, dann möchte ich auch mal

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.
  Mit Zitat antworten Zitat
Benutzerbild von emsländer
emsländer

Registriert seit: 21. Aug 2004
Ort: Lengerich
658 Beiträge
 
RAD-Studio 2009 Ent
 
#8

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit

  Alt 4. Sep 2007, 15:32
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


Narben am Körper sind ein Zeichen dafür, das man gelebt hat.
Narben auf der Seele sind ein Zeichen dafür, das man geliebt hat.
  Mit Zitat antworten Zitat
Daniel
(Co-Admin)

Registriert seit: 30. Mai 2002
Ort: Hamburg
13.920 Beiträge
 
Delphi 10.4 Sydney
 
#9

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit

  Alt 4. Sep 2007, 15:33
Zitat von Luckie:
Aber warum machen wir das eigentlich?
Keine Ahnung - aber ich find's cool. Außerdem sind meine Pfade am längsten.

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).
Daniel R. Wolf
mit Grüßen aus Hamburg
  Mit Zitat antworten Zitat
Benutzerbild von emsländer
emsländer

Registriert seit: 21. Aug 2004
Ort: Lengerich
658 Beiträge
 
RAD-Studio 2009 Ent
 
#10

Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit

  Alt 4. Sep 2007, 15:35
Zitat von Daniel:
Zitat von Luckie:
Aber warum machen wir das eigentlich?
Keine Ahnung - aber ich find's cool. Außerdem sind meine Pfade am längsten.

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


Narben am Körper sind ein Zeichen dafür, das man gelebt hat.
Narben auf der Seele sind ein Zeichen dafür, das man geliebt hat.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:54 Uhr.
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