تشخیص درایو ویندوز در دلفی

[soren64]

من فایلی دارم که می خوام در فولدر ویندوز ذخیره کنم ولی نمی دونم چطور درایو ویندوز و پیدا کنم ممنون می شم که به من کمک کنید(دلفی):متفکر::متفکر:

[Felony]

var
WinDir: Array [0..255] of Char;
begin
GetWindowsDirectory(WinDir, SizeOf(WinDir));
ShowMessage('Windows drive is : '+ ExtractFilePath(WinDir));
ShowMessage('Windows directory is : '+ WinDir);
end;