دليل Windows Temp

ضع زر جديد والصق الكود التالي بداخله ونفذ

للحصول على دليل Temp نفذ

var

lng: DWORD;

thePath: string;

begin

SetLength(thePath, MAX_PATH);

lng := GetTempPath(MAX_PATH, PChar(thePath));

SetLength(thePath, lng);

end;