Einzelnen Beitrag anzeigen

Benutzerbild von mika
mika

Registriert seit: 25. Okt 2002
176 Beiträge
 
Delphi 6 Professional
 
#4
  Alt 17. Jun 2003, 11:25
Hi, diese Funktion liefert dir das Windows Directory und damit auch
den Laufwerksbuchstaben

Delphi-Quellcode:
function getWindowsDir: String;
Var
  _Str: String;
  _pch: PChar;

begin
  _pch := StrAlloc(Max_Path + 1);
  GetWindowsDirectory(_pch, MAX_PATH + 1);
  _Str := strpas(_pch);
  StrDispose(_pch);
  If _str[Length(_str)] <> '\then _str := _Str + '\';
  Result := _str;
end;
und bei der suche würde ich mal nach den schlagworten findfirst und findnext nachsehen in der OH. Die sind dafür recht gut.

mfg, Mika.
:: don't Panic ::
  Mit Zitat antworten Zitat