Explorar el Código

use App Temp Path replace System Temp Path

MaiXinRong hace 8 años
padre
commit
4f28f2dbde
Se han modificado 1 ficheros con 2 adiciones y 1 borrados
  1. 2 1
      Units/UtilMethods.pas

+ 2 - 1
Units/UtilMethods.pas

@@ -857,7 +857,8 @@ end;
 
 function GetTempFilePath: string;
 begin
-  Result := GetTempFileDir + '\';
+  //Result := GetTempFileDir + '\';
+  Result := GetAppTempPath;
 end;
 
 function GetTempName(ALength: Integer): string;