TransFile.pas 610 B

1234567891011121314
  1. unit TransFile;
  2. interface
  3. function EncryptCommonFile(const ASourceFile, ATargetFile, Key: string): Boolean; stdcall; external 'TransFile.dll' name 'EncryptCommonFile';
  4. function DecryptCommonFile(const ASourceFile, ATargetFile, Key: string): Boolean; stdcall; external 'TransFile.dll' name 'DecryptCommonFile';
  5. function AutoEncryptFile(const ASourceFile, ATargetFile: string): Boolean; stdcall; external 'TransFile.dll' name 'AutoEncryptFile';
  6. function AutoDecryptFile(const ASourceFile, ATargetFile: string): Boolean; stdcall; external 'TransFile.dll' name 'AutoDecryptFile';
  7. implementation
  8. end.