Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#17

Re: Getallusers-Pfade: Notlösung

  Alt 15. Sep 2006, 13:43
Zitat von Go2EITS:
@shmia
Magst Du nicht ein wenig konkreter werden?
Zitat:
BOOL GetProfilesDirectory(
LPTSTR lpProfilesDir,
LPDWORD lpcchSize
);
damit komme ich nicht klar. Wie muss ich was, wo und wann einbinden und wie dann aufrufen?
Na das ist eine Windows API Funktion, die man benutzen kann/sollte.
http://windowssdk.msdn.microsoft.com.../ms713356.aspx
Delphi-Quellcode:
function GetProfilesDirectory(lpProfilesDir:PChar; var lpcchSize:DWORD):wordbool;

function GetProfilesDirectory; external 'userenv.dllname 'GetProfilesDirectoryA';

function LeseBenutzerProfilVerzeichnis:string;
var
   len : DWORD;
begin
   len := 264;
   SetLength(result, len);
   if not GetProfilesDirectory(Pchar(benutzerprofilverz), len) then
      RaiseLastWin32Error;
   SetLength(Result, len);
end;
Das wäre dann der Ersatz für "C:\dokumente und einstellungen", denn das Verzeichnis könnte ja auch "C:\Documents and Settings" oder sonstwie heisen.

PS:
man kann auch NetUserEnum benützen, dann ist es keine Notlösung mehr:
http://www.nldelphi.com/forum/showth...&threadid=6308
Andreas
  Mit Zitat antworten Zitat