Zitat von
Bernhard Geyer:
Welche Fehlermeldung bekommst Du?
Das ist ja das verrückte: Ich bekomme gar keine Fehlermeldung! Im folgenden IF war die Bedingung immer false, obwohl der Pfad und die Datei existieren:
if 0 <> FindFirst(SourceLW + 'ACPro_Local.mdb',faAnyFile,mySearchRec) then
Nachdem ich die Units in den Interface-Abschnitt verschoben habe ist die gleiche Bedingung jetzt false!
Beim GetDiskFreeSpaceEx liefert folgender Code für den freien Speicher (iFrei) immer 0 bzw. der vorherige Wert wird nicht geändert. Es gibt auch keine Fehlermeldung!
Delphi-Quellcode:
function zuWenigSpeicher(): boolean;
var
iFrei : Integer;
Frei : Int64;
Total: Int64;
TotalFree: PLargeInteger;
sLW: string;
begin
Result := False;
Frei := 0;
Total := 0;
GetMem(TotalFree,4);
sLW := sInstallationsPfad[1] + ':\' + #0;
GetDiskFreeSpaceEx(@sLW[1],Frei, Total, TotalFree);
iFrei := Frei div (1024*1024);
FreeMem(TotalFree);
...
Zitat von
Bernhard Geyer:
SysUtils.FindFirst(...)
Das habe ich auch versucht: Gebracht hat's aber nichts.
Das Problem muss irgendwie mit den Units
activex und/oder shlobj zutun haben!
Noch irgendwelche Ideen?