Pfad ermitteln

[shmia]

Zitat von swoga:

Ich habe mir jetzt eine Funktion gebastelt...

Mit SearchPath würdest du aber weniger code benötigen:

Delphi-Quellcode:

// ungetestet
function MySearchPath(const filename:string):string;
var
   Reg: TRegistry;
   newlen : Integer;
   filepart : PChar;
begin
   newlen := MAX_PATH+300;
   SetLength(Result, newlen);

   newlen := SearchPath(nil, pchar(filename), nil, newlen, PChar(Result), filepart);
   if newlen > 0 then
      SetLength(Result, newlen)
   else
      result := '';
end;