以下のサンプルコードを参考にしてください。
このサンプルアプリケーションは、どのようにしてファイル、フォルダ、ドライブの情報を取得するかを提供しています。
このサンプルではWinAPI(｢SHGetSpecialFolderLocation｣と｢SHGetPathFromIDList｣)を使用しているため、 uses に定義が書いてある｢ShlObj｣と、Olecheckのために｢ComObj｣を追加する必要があります。

サンプルプログラムのダウンロードは→[Delphi FAQ用サンプル] OS上の特別なフォルダの場所を取得する(with Windows API)

以下は、個人のスタートアップフォルダを取得する例です。

function GetStartupFolderPath: String;
var
  IIDList: PItemIDList;
  buffer: array [0..MAX_PATH] of char;
begin
  IIDList := nil;
  
  OleCheck(SHGetSpecialFolderLocation(Application.Handle, 
    CSIDL_STARTUP, IIDList));
  if not SHGetPathFromIDList(IIDList, buffer) then
  begin
    raise Exception.Create('仮想フォルダのため取得できません');
  end;
  Result := StrPas(Buffer);
end;

Delphi5ではもっと簡単にするためにShlObjに、｢SHGetSpecialFolderPath｣関数が用意されています。この関数の使い方はサンプルを参照してください。下に例を示します。

  SHGetSpecialFolderPath(
    0,
    szPath,
    CSIDL_DESKTOP,
    false
  );

このほかに、システムフォルダを取得する定数ほかに以下に示すようなものがあります。詳しくはShlObjを参照していただきたいのですが、仮想フォルダのため実際のパスを取得できないケースも多々あります。