سلام
ممنون میشم راهنمایی بفرمائید
سلام
ممنون میشم راهنمایی بفرمائید
دوست من کمی جستجو کنید سریعتر به جواب می رسید ...
function GetWinDir: string;
var
dir: array [0..MAX_PATH] of Char;
begin
GetWindowsDirectory(dir, MAX_PATH);
Result := IncludeTrailingPathDelimiter(StrPas(dir));
end;
یا حق !!!