Screwdriver>> Ja du kan bare slette filen, det er bare en temporær fil, den vil altid ligge i temp. Jeg vil i den forbindelse lige supplere med en funktion til at finde Temp path :
function GetTempPath: string;
begin
SetLength(Result, MAX_PATH);
Windows.GetTempPath(MAX_PATH, PChar(Result));
SetLength(Result, Pred(Pos(#0, Result)));
end;
En anden god ide når du bruger BDE er at slette HELE indholdet af temp folderen, MED under bibloteker. Du kan nemt opleve andre BDE problemer ved at det ligger en masse og roder der nede.
Jeg har udviklet et lille program til formålet som ligger sig i start op, og sletter indholdet af temp ved opstart af computeren program + source kode kan hentes her :
http://borrisholt.com/eksperten/Temp%20Sletter.zipMht de 2/4 GB så måles der i GB, men ellers har du ret. Du kan bruge det følgende til at måle din fri HD plads :
uses
Math;
function JBRoundFloat(Value: Extended; const NumberOfDecimals: Byte): Extended;
var
Factor: Extended;
begin
Factor := IntPower(10, NumberOfDecimals);
if Frac(Value * Factor) >= 0.5 then
Value := Value + 1 / (IntPower(10, NumberOfDecimals + 1));
Result := StrToFloat(Format('%.*f', [CurrencyDecimals, Value]));
end;
function DiskFreeGB (const Drive : Byte = 0) : Extended;
begin
Result := JBRoundFloat( DiskFree(Drive) / Power(1024, 3), 2);
end;
og det følgende vil fortælle dig om du har et problem :
function HasProblem(const Drive : Byte = 0) : boolean;
var
FreeGB : Extended;
begin
FreeGB := DiskFreeGB(Drive);
Result := (FreeGB = Trunc(FreeGB)) and ( Trunc(FreeGB) mod 2 = 0);
end;
Hvis du har brug for mere info stiller jeg gerne min viden til rådighed.
Jens Borisholt