以下のサンプルコードを参考にしてください。
このサンプルアプリケーションは、どのようにしてファイル、フォルダ、ドライブの情報を取得するかを提供しています。
このサンプルではWinAPI(「SHGetSpecialFolderLocation」と「SHGetPathFromIDList」)を使用しているため、 uses に定義が書いてある「ShlObj」と、Olecheckのために「ComObj」を追加する必要があります。
サンプルプログラムのダウンロードは→[Delphi FAQ用サンプル] OS上の特別なフォルダの場所を取得する(with Windows API)