Forum: Sonstige Fragen zu Delphi
Delphi
by emsländer,
4. Sep 2007
Schau Dir mal meinen Quellcode an! Das mache ich nur, wenn der "normale" Weg nicht klappt, mir also ein Leerstring geliefert wird. Oder hast ne andere Alternative? Betrifft ja nur 46.
Gruss
EL
Forum: Sonstige Fragen zu Delphi
Delphi
by emsländer,
4. Sep 2007
Jetzt fisch ich mir den Dokumentenordner aus der Registry:function get_dok_from_reg : string;
Var reg : TRegistry;
begin
result := '';
reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',true) then begin
if reg.ValueExists('Common Documents') then result :=...
Forum: Sonstige Fragen zu Delphi
Delphi
by emsländer,
4. Sep 2007
War ein Versehen. Ist geändert.
Gruss
EL
Forum: Sonstige Fragen zu Delphi
Delphi
by emsländer,
4. Sep 2007
Schon witzig. Habe noch ne Änderung gemacht. Mach den Test bitte noch einmal.
Gruss
EL
Forum: Sonstige Fragen zu Delphi
Delphi
by emsländer,
4. Sep 2007
Nunja, mir kommts nicht unbedingt auf die Windowsversion an. Das soll mir nur zur Info dienen. Wichtig sind mir die 3 Ordner.
Gruss
EL
Forum: Sonstige Fragen zu Delphi
Delphi
by emsländer,
4. Sep 2007
Weil ich festgestellt habe, das diese Funktion:
function GetShellFolder(CSIDL: integer): string;
var
pidl : PItemIdList;
FolderPath : string;
SystemFolder : Integer;
Malloc : IMalloc;
begin
Malloc := nil;