AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Getallusers-Pfade: Notlösung

Ein Thema von Go2EITS · begonnen am 14. Sep 2006 · letzter Beitrag vom 18. Sep 2006
Antwort Antwort
Seite 1 von 3  1 23      
Go2EITS

Registriert seit: 25. Jun 2006
519 Beiträge
 
Delphi 7 Personal
 
#1

Getallusers-Pfade: Notlösung

  Alt 14. Sep 2006, 15:34
Ich habe nach Getallusers gesucht und keinen funktionierenden Code gefunden. Ich stelle Euch mal die "Notversion", der mir die Pfade liefert, hier zur Verbesserung rein.
[EDIT]
Verbesserungen dank Ultimator:
AddDirSeparator rausgeworfen, weil es ja IncludeTrailingPathDelimiter gibt!
Code hier geändert:
Delphi-Quellcode:
  // Ist hier Quatsch, weil ich ja sRootDir:='C:\dokumente und einstellungen'; vorgegeben habe.
    // für meinen Fall daher vorerst so:
     sSearchPath := IncludeTrailingPathDelimiter(sRootDir);
    //statt
     sSearchPath :='C:\dokumente und einstellungen\'

 
   /// Diese Zeile
  If DirectoryExists('C:\dokumente und einstellungen') then
  // wie folgt geändert:
  If DirectoryExists(sRootDir) then
Naja, solche Überlegungen kommen einem doch erst bei der intensiven Durchsicht. Nachfolgend steht der korrigierte Code.
[\EDIT]

Die Version Getsubdirs von Torry habe ich verändert und bekomme nun alle (User)Pfade unter "Dokumente und einstellungen". Sogar den HiddenDir "Default User". Ich weiss, es ist eine unsaubere Notlösung, weil ja wohl in jeder Sprache der Path anders lautet. Er geht halt nur auf einer deutschen Maschine. Für Verbesserungsvorschläge sind wir und ich sehr aufgeschlossen!

Delphi-Quellcode:
// Im VAR-Teil der Unit/Form einn TStringlist Namens "u" anlegen:
var
   u:TStringList; // Da stehen die Userpfade dann drin
Hier die von Torry geänderte Version GetSubDir in GetAllUser geändert und eingefügt:
Delphi-Quellcode:
Procedure GetAllUser;
var
  srSearch: TSearchRec;
  sSearchPath: string;
  i: Integer;
  sRootDir:string;
begin
  //Notlösung:
  sRootDir:='C:\dokumente und einstellungen';
  // Sicherheitsabfrage
  If DirectoryExists(sRootDir) then
  begin
  //
  u := TStringList.Create;
  u.BeginUpdate;
  try
    sSearchPath := IncludeTrailingPathDelimiter(sRootDir);
    if FindFirst(sSearchPath + '*', faDirectory or faHidden, srSearch) = 0 then
      repeat
        if ((srSearch.Attr and faDirectory) = faDirectory) and
          (srSearch.Name <> '.') and
          (srSearch.Name <> '..')then
          u.Add(sSearchPath + srSearch.Name);
        until (FindNext(srSearch) <> 0);
    FindClose(srSearch);
  finally
  u.EndUpdate;
  end;
end;
end;
Bitte unter Form.close ein
FreeAndNil(u); einfügen, damit die Stringlist "u" sauber gelöscht wird.

Und so rufe ich mal die Procedure (über Button auf der Form) auf:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
  var i:Integer;
begin
      GetAllUser;
      // Nur zum Testen notwendig:
      showmessage('Anzahl User: '+(inttostr(u.count)));
      for i:=0 to U.count-1 do ShowMessage('UserPfade: '+u[i]);
end;
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

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

Re: Getallusers-Pfade: Notlösung

  Alt 14. Sep 2006, 15:45
Was ist mit MSDN-Library durchsuchenSHGetSpecialFolderPath oder MSDN-Library durchsuchenSHGetSpecialFolderLocation?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Go2EITS

Registriert seit: 25. Jun 2006
519 Beiträge
 
Delphi 7 Personal
 
#3

Re: Getallusers-Pfade: Notlösung

  Alt 14. Sep 2006, 15:59
Zitat:
SHGetSpecialFolderLocation Function
Retrieves a pointer to the ITEMIDLIST structure of a special folder.
Syntax

HRESULT SHGetSpecialFolderLocation( HWND hwndOwner,
int nFolder,
LPITEMIDLIST *ppidl
);
Parameters

hwndOwner
[in] Handle to the owner window the client should specify if it displays a dialog box or message box.
nFolder
[in] A CSIDL value that identifies the folder of interest.
ppidl
[out] A pointer to an item identifier list (PIDL) specifying the folder's location relative to the root of the namespace (the desktop). The calling application is responsible for freeing this pointer with the Shell's IMalloc interface (see SHGetMalloc).
Return Value

Returns S_OK if successful, or an error value otherwise.

Remarks

With Microsoft Windows 2000, this function is superseded by SHGetFolderLocation.
Vielen Dank Luckie, damit kann ich aber nix anfangen.
Allein schon die *ppidl und CSIDL überfordert mich maßlos. Sonst wäre ich doch C++ Programmierer geworden und nicht Delphi.
Bekomme hier als Ergebnis ein Pointer auf die Liste einer Folder of interest. Prima!
So mach ich lieber einen Handstand wie oben! (Vorerst)
Trotzdem besten Dank für Deine Hilfe und beste Grüße!
Go2EITS
  Mit Zitat antworten Zitat
Benutzerbild von Ultimator
Ultimator

Registriert seit: 17. Feb 2004
Ort: Coburg
1.860 Beiträge
 
FreePascal / Lazarus
 
#4

Re: Getallusers-Pfade: Notlösung

  Alt 14. Sep 2006, 16:19
Hi GO2EITS,
die AddDirSeparator-Funktion hättest du dir sparen können, die gibts schon als Hier im Forum suchenIncludeTrailingPathDelimiter
Julian J. Pracht
  Mit Zitat antworten Zitat
Benutzerbild von vlees91
vlees91

Registriert seit: 19. Apr 2004
843 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: Getallusers-Pfade: Notlösung

  Alt 14. Sep 2006, 16:21
es geht ja glaube ich das man in Verknüpfungen {WINDOWS} (o.Ä.) angibt, und dann in C:\Windows oder C:\WINNT etc gelangt. evtl gibts sowas auch für die UserProfiles
vlees91
  Mit Zitat antworten Zitat
Go2EITS

Registriert seit: 25. Jun 2006
519 Beiträge
 
Delphi 7 Personal
 
#6

Re: Getallusers-Pfade: Notlösung

  Alt 14. Sep 2006, 16:57
@Ultimator
Vielen Dank! Und für alle, die mehr wissen wollen:
Uses Sysutils...

function IncludeTrailingPathDelimiter(const S: string): string;
Die Funktion stellt sicher, dass ein Pfadname mit einem Begrenzungszeichen endet.

function ExcludeTrailingPathDelimiter(const S: string): string;
Die Funktion stellt sicher, dass ein Pfadname ohne einem Begrenzungszeichen endet.

function IsPathDelimiter(const S: string; Index: Integer): Boolean;
Die Funktion gibt an, ob das Byte an der angegebenen Position eines Strings ein Pfadbegrenzungszeichen ist.

Ich glaube, darüber bin ich schon mal gestolpert...

@vleees91:
%WINDIR% ist das Zauberwort in Deinem Falle.
Ja, ganz bestimmt. Aber ich habe nichts zum Laufen gebracht.

Zur besseren Übersicht: Code oben "optimiert"!

Tschau!
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

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

Re: Getallusers-Pfade: Notlösung

  Alt 14. Sep 2006, 23:01
Meinen Artikle über das %HOMEDIR% hast du ja schon gefunden. Es fehlt nur die passende CLSID. Leide rhabe ich die im MSDN auch nicht gefunden, aber es gibt sie bestimmt. Eventuell einfach mal in den entsprechenden Header-Dateien gucken. Ich habe jetzt keine Zeit dies noch zu tun, ich muss morgen wieder früh raus.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#8

Re: Getallusers-Pfade: Notlösung

  Alt 14. Sep 2006, 23:30
Moin Luckie,

Zitat von Luckie:
Leide rhabe ich die im MSDN auch nicht gefunden,


Ich habe zur Zeit nicht das ganz aktuelle PSDK installiert, und dort steht:
CSIDL_PROFILE, und hat den Wert 0x0028 (bzw. $0028 für Delphi)

Die Umgebungsvariable hierfür ist übrigens HOMEPATH (nicht HOMEDIR)


@Go2EITS:

Wenn Dich die Parameter von SHGetSpecialFolderLocation überfordern, schau Dir mal MSDN-Library durchsuchenSHGetSpecialFolderPath an (wie Luckie ja schon vorgeschlagen hat).
Um den Ordner "Dokumente und Einstellungen" sprachunabhängig zu finden könntest Du auch CSIDL_PROFILES (0x003e) verwenden (IMHO erst ab XP verfügbar)
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

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

Re: Getallusers-Pfade: Notlösung

  Alt 15. Sep 2006, 00:00
Aber auch mit ermittlung des Pfades ist es eine Notlösung weil dort auch Ordner zu finden sind von gelöschten Nutzern.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

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

Re: Getallusers-Pfade: Notlösung

  Alt 15. Sep 2006, 00:01
Damit bekommt man aber nur den Pfad für "Dokumente und Einstellungen" Er will aber den Pfad zu "All Users" haben. Allerdings, da er auch unter meinem deustchen Windows "All Users" heißt, könnte man auch CSIDL_PROFILE + "All Users" (hardgecodet) nehmen.
Michael
Ein Teil meines Codes würde euch verunsichern.
  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 17:32 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