Forum: Programmieren allgemein
by Go2EITS,
17. Sep 2006
@Luckie:
Danke für den Hinweis. Nachstehend das Ergebnis, das mir Eurer Hilfe entstanden ist!
Da hier ein Missverstänis vorliegt:
Ich will alle Benutzer unter "Dokumente und Einstellungen".
Also nicht nur C:\Dokumente und Einstellungen\All Users sondern alle Einträge.
Admin, All Users, Default User, und andere Benutzer, die in unter "Dokumente und Einstellungen"
stehen. Das ist mit dem...
Forum: Programmieren allgemein
by Go2EITS,
15. Sep 2006
@Luckie
Hab gegugt und den schnell geschrieben (vor 3 Monaten noch undenkbar) und getestet und es läuft unter XP/Windows2000.
Function GetProfilesDir:String;
var
Reg: TRegistry;
Dir,Systemdrive:String;
begin
result:='';Dir:='';
Reg := TRegistry.Create;
Forum: Programmieren allgemein
by Go2EITS,
15. Sep 2006
Also so geht es leider nicht:
Nach Implementation habe ich:
Function GetProfilesDirectory; external 'userenv.dll' name 'GetProfilesDirectoryA';
Der Compiler meckert: Die Funktion benötigt Ereignistyp...
Das funktioniert also nicht.
Aber
function GetProfilesDirectory(lpProfilesDir:PChar; var lpcchSize:DWORD):Wordbool;external 'userenv.dll' name 'GetProfilesDirectoryA';
eingebunden.
Forum: Programmieren allgemein
by Go2EITS,
15. Sep 2006
@Shmia
Vielen Dank!
Das probiere ich in Kürze aus und versuche es in der "Notlösung" einzubauen. Wenn es geht, davon gehe ich aus, sind es klasse Beiträge zum Problem. Super! :thumb:
Beste Grüße
Go2EITS
Forum: Programmieren allgemein
by Go2EITS,
15. Sep 2006
@ SirThornberry
Eigentlich möchte ich die alle User, einschließlich dem Pfath:
Administrator
<User1>
<User2>
All Users
und
DEFAULT USER
Forum: Programmieren allgemein
by Go2EITS,
14. Sep 2006
@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.
Forum: Programmieren allgemein
by Go2EITS,
14. Sep 2006
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! :thumb:
Go2EITS
Forum: Programmieren allgemein
by Go2EITS,
14. Sep 2006
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.
Verbesserungen dank Ultimator:
AddDirSeparator rausgeworfen, weil es ja IncludeTrailingPathDelimiter gibt!
Code hier geändert:
// Ist hier Quatsch, weil ich ja sRootDir:='C:\dokumente und einstellungen'; vorgegeben...