Sonderfunktionen Shredder

 

Um Ihnen das Erstellen bestimmter Anwendungen erheblich zu erleichtern, stellen Ihnen ArchiCrypt Shredder Pro Scripte die nachfolgenden vordefinierten Funktionen zur Verfügung:

 

Ausgabe von Informationen im LogBuch des Shredders

 

procedure ACShredderLog(InMessage:string);

 

Beispiel:

ACShredderLog('Ich bin eine Nachricht aus einem Script');

 

Anzeige eines Nachrichtenfensters über dem Systemtray

 

procedure ACAlert(AUeberschrift:string;ANachricht:string);

 

Beispiel:

ACAlert('Wichtige Nachricht','Ich bin echt wichtig!');

 

 

Sicheres Löschen einer Datei (einfaches Überschreiben mit Nullen)

 

function ACShredderFile(AFileName:string):Boolean;

 

Beispiel:

 

   if ACShredderFile('D:\UnnötigeDatei.txt') then

           ACAlert( 'Info','Datei gelöscht');

 

Suche nach Dateien mit Maske

 

   function ACGetMaskedFileList(StartVerzeichnis: string; DateiMaske: string; var AnzahlGefundenerDateien: integer; ListeMitGefundenenDateien: TStringList; bSucheRekursiv: Boolean): boolean;

 

   Beispiel siehe Pro Script Unit uCreateReport.psc

 

 

Sicherstellen, dass Pfad mit \ endet

 

   function ACQualifyPath(InPath:string):string;

 

   Beispiel:

   var APath:string;

 

   begin

     APath := 'C:\Pfad\Unterpfad';

     APath := ACQualifyPath(APAth); //APath sieht jetzt so aus 'C:\Pfad\Unterpfad\'

   end;

 

 

Freien Speicherplatz auf Laufwerk ermitteln

 

   function ACDiskFree(ADrive:Byte):int64;

 

Beispiel:

   var freebytes:int64;

   

   begin

         freebytes:= ACDiskFree('C');   

   end;   

 

 

Größe einer Datei ermitteln

 

function ACGetSizeOfFile(AFileName:string):int64;

 

Auswahldialog für Verzeichnis anzeigen

 

   function ACBrowseFolder(AusgewaehltesVerzeichnis:string;DialogTitel:string):boolean;

 

liefert False, falss der Benutzer den Dialog ohne Auswahl eines Verzeichnisses abbricht, true, falls eine Auswahl erfolgt.

Der Name der gewählten Verzeichnisses wird dann in der Variablen AusgewaehltesVerzeichnis zurückgegeben.

 

Beispiel siehe Pro Script Unit uCreateReport.psc

 

var

    StartVerzeichnis:String;

begin

    if ACBrowseFolder(StartVerzeichnis,'Bitte Startverzeichnis wählen') then

    begin

        edtStarteSucheHier.Text := StartVerzeichnis;

    end;  

end;

 

 

Dateien komprimieren und in ZIP Archiv speichern

 

   function ACZipFiles(ListeMitDateien:TstringList; //Übergabe der zu komprimierenden Dateien als Liste

                                 ZIPDateiName:string; //Name inkl. Pfad der zu erzeugenden ZIP-Datei

                                 bDoLog:Boolean //soll Shredder Informationen im eigenen Logbuch anzeigen

                                 ):boolean;

               

   Beispiel siehe Pro Script Unit uCreateBackup.psc                

 

 

   function ACUnZipFiles(ZIPDateiName:string; //Name inkl. Pfad der ZIP-Datei

             TargetPath:string; //Zielpfad für das Entpacken

                                 bDoLog:Boolean //soll Shredder Informationen im eigenen Logbuch anzeigen

                                 ):boolean;

       

Datei per HTTP downloaden

 

 

    function  ACDownloadHTTP(url:string, //hier aus dem Internet laden

          Zielverzeichnis:string; //in dieses lokale Verzeichnis speichern  

          bDoShowProgress:boolean //Dialog mit Fortschritt anzeigen

          ):Boolean;

 

 

   Beispiel siehe Pro Script Unit uDownloadHTTP.psc      

 

Datei per FTP downloaden

 

function ACDownloadFTP(AHost:string;

                     AFilename:string;

                     ATargetDir:string;

                     AUserName:string;

                     APassword:string;

                     AFTPPort:integer=21;

                     ShowDialog:boolean=true

                     ):Boolean;

 

   Beispiel siehe Pro Script Unit uDownloadFTP.psc      

 

Datei per FTP Uploaden

 

function ACUploadFTP(AHost:string;

                   ALocalFilename:string;

                   ATargetDir:string;

                   AUserName:string;

                   APassword:string;

                   AFTPPort:integer=21;

                   ShowDialog:boolean=true

                       ):Boolean;

 

 

   Beispiel siehe Pro Script Unit  uUploadFTP.psc      

 

 

Datei vom FTP Server löschen

 

function DeleteFTP(AHost:string;

                   AFilename:string;

                   ARemoteDir:string;

                   AUserName:string;

                   APassword:string;

                   AFTPPort:integer=21;

                   ShowDialog:boolean=true

                   ):Boolean;

 

   Beispiel siehe Pro Script Unit  uUploadFTP.psc      

 

 

Proxy für HTTP und FTP Funktionen festlegen

 

Muss vor dem Aufruf von HTTP bzw. FTP spezifischen Funktionen erfolgen

 

procedure ACInitProxy(AProxy:string;AProxyUserName:string;AProxyPassword);

 

 

MD5 Prüfsumme für eine Datei berechnen

 

function ACCalculateFileMD5(AFileName:string):string;

 

MD5 Prüfsumme für eine Zeichenkette berechnen

 

function ACCalculateStringMD5(AString:string):string;

 

Eine Datei verschlüsseln

 

   function ACEncryptFile(EingabeDatei:string;AusgabeDatei:string;Passwort:string):Boolean;

 

   Beispiel siehe Pro Script Unit  uEncryptFile.psc      

 

Eine Datei entschlüsseln

 

 

   function ACDecryptFile(EingabeDatei:string;AusgabeDatei:string;Passwort:string):Boolean;

 

   Beispiel siehe Pro Script Unit  uEncryptFile.psc      

 

Eine Zeichenkette verschlüsseln

 

   function ACEncryptString(AString:string;Passwort:String):string;

 

Eine Zeichenkette entschlüsseln

 

   function ACDecryptString(AString:string;Passwort:String):string;

 

Versionsinformationen von Windows ermitteln

   

function ACSystemInfo(MajorVersion:integer;

                           MinorVersion:integer;

                           BuildNumber:integer;

                           PlattformID:integer): Boolean;    

 

 

   Beispiel siehe Pro Script Unit   uSystemInfo.psc

 

 

---

Seitenadresse: http://www.ArchiCrypt.com/shredder5/index.html?sonderfunktionen_shredder.htm