ERRO !!!! Session.PrivateDir

Delphi

30/04/2003

Olá pessoal,

Estou criando um diretório temporário para direcionar a criação dos arquivos temporários Del.MB e Del.DB.
Porém, ao executar o programa está ocorrendo o seguinte erro:
´Directory is busy´ na linha marcada com **** abaixo.

procedure Tform1.FormCreate(Sender: TObject);
begin
if not DirectoryExists(´C:\TempSI08´) then
CreateDir(´C:\TempSI08´);
Session.PrivateDir := ´C:\TempSI08´; ****
end;

procedure Tform1.FormClose(Sender: TObject);
begin
if DirectoryExists(´C:\TempSI08´) then
RemoveDir(´C:\TempSI08´);
end;


Se alguém souber como resolver isto, eu agradeço muito !!!!


Fabiana


Falinden

Falinden

Curtidas 0
POSTAR