Как узнать путь к папке где хранятся временные файлы?
function TempPath: string;
var
i: integer;
begin
SetLength( Result, MAX_PATH );
i := GetTempPath( Length( Result ), PChar( Result ) );
SetLength( Result, i );
end;
procedure TForm1.Button1Click(Sender: TObject);
begin ShowMessage( TempPath );
end; |