Membaca / mencari folder my documents current user dengan Delphi

Implementasi n-computing untuk tes online di kampus ternyata diperlukan beberapa perubahan, antara lain yaitu :

1. N-Computing hanyalah terminal, sehingga semua dianggap satu omputer saja (hanya 1 IP saja)
2. Security setiap terminal untuk akses ke server sangat perlu ditingatkan, yaitu dengan :
   a. Drive/Folder security, hak akses user dihapus
   b. Start program dan sejenisnya dihapus dan read-only
   c. Folder yang bisa di tulis hanya di My Documents
   d. Diinstall Deep Freeser , sehingga semua yang ditulis di My Documents akan hilang saat booting

Dengan adanya fungsi di Tes Online adalah tes TOEFL dan ada listening, maka diperlukan akses file MP3 (soal listening).

Untuk itu satu-satunya tempat hanyalah di My Documents, dan sebenarnya di server folder ini disimpan di c:\documents and settings\nama user\My Documents.

Fungsi di Delphi untuk mengetahui letak folder My Documents yaitu sebagai berikut :

uses shlobj, …

function GetMyDocuments: string;
var
r: Bool;
path: array[0..Max_Path] of Char;
begin
r := ShGetSpecialFolderPath(0, path, CSIDL_Personal, False) ;
if not r then raise Exception.Create(’Could not find MyDocuments folder location.’) ;
Result := Path;
end;