Hallo zusammen,
zum Schutz meiner privaten Daten speicher ich diese auf einer externen Festplatte (Laufwerksbuchstabe P:\), die ich immer abschalte, wenn ich online gehe. Damit ich das Abschalten nicht vergesse, habe ich ein kleines Prog geschrieben, welches gewährleistet, dass ich nur dann online gehen kann, wenn die externe Festplatte tatsächlich abgeschaltet ist, andernfalls bekomme ich einen Warnhinweis. Auf meinem Desktop befindet sich nur eine Verknüpfung zu diesem Prog.
Der Code ist simpel
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
if DirectoryExists('
P:')
then begin
Label1.Caption := '
LW abschalten!';
Label1.Visible := True
end else begin
ShellExecute(
Handle, '
open', PChar('
C:\Programme\T-Online\T-Online_Software_6\Basis-Software\Basis2\kernel.exe'),
nil,
nil, sw_Show);
Application.Terminate;
end;
end;
Nun möchte ich als zusätzliche Bedingung für den Start der Online-Verbindung festlegen, dass ein bestimmter Ordner, in dem ich private Daten zwischenspeichere (z.B. D:\Privat\), leer ist.
Kann mir bitte jemand sagen, mit welchem Befehl man dies prüft?