0

Delphi でアクセス拒否のフォルダまたはファイルを作成するにはどうすればよいですか?

Delphi からそのフォルダ/ファイルにアクセスできるのは自分だけだと思います。

4

2 に答える 2

3

ユーザープロファイルの下にファイルを作成するだけです。デフォルトのセキュリティ設定では、他のユーザーのアクセスは許可されていません。当然、管理者はアクセスできますが、管理者から隠すことはできません。

于 2012-05-25T18:55:37.733 に答える
3

私の簡単な例を試すことができます

interface
...
   function EncryptFileA(lpFilename: PAnsiChar): BOOL; stdcall;
   {$EXTERNALSYM EncryptFileA}
...
implementation
...
   // Delphi wrongly register function EncryptFileA under kernel32.dll. 
   // Just re-register it using AdvApi32.dll 
   function EncryptFileA; external AdvApi32 name 'EncryptFileA'; 
...
procedure TForm1.btn1Click(Sender: TObject);
begin
  CreateDirectory('c:\test', nil);
  EncryptFileA('c:\test');
end;

このコードは、'C\test' フォルダーを作成し、暗号化します。あなたが入れたファイルは、所有者 (あなた) だけがアクセスできます。別のユーザーで切り替えてログインし、テストできます。もちろん、ディレクトリが存在するかどうかを確認し、エラー (存在する場合) を取得して適切に処理するには、上記のコードを詳しく説明する必要があります。

または、 http: //www.sdean12.org/SDeanComponents.htm#OTFETrueCrypt などの無料の暗号化ツール www.truecrypt.org および Delphi Truecrypt コンポーネントを使用するか、他の Delphi Truecrypt コンポーネント用の google を使用することもできます。しかし、私はこれを試したことはありません。

于 2012-05-26T10:03:14.900 に答える