تشخیص مسیر نصب سیستم عامل و ذخیره آن در یک متغیر

[ravanfar]

سلام
ممنون میشم راهنمایی بفرمائید

[Hamid_PaK]

دوست من کمی جستجو کنید سریعتر به جواب می رسید ...



function GetWinDir: string;
var
dir: array [0..MAX_PATH] of Char;
begin
GetWindowsDirectory(dir, MAX_PATH);
Result := IncludeTrailingPathDelimiter(StrPas(dir));
end;


یا حق !!!