私が以前にロックしたパーティションに書き込む方法（Delphiを使用）

Question

パーティションをロックし、TFileStreamを使用していくつかのファイルを書き込み、ロックを解除したいとします。 ロックとロック解除の方法が見つかりましたが、書き込み方法はわかりません。 は、これまでのところ、私のコードは次のとおりです。

Const 
    FSCTL_LOCK_VOLUME = $00090018; 
    FSCTL_UNLOCK_VOLUME = $0009001C; 

var HLockedVol: THandle; 

implementation 

{$R *.dfm} 

function LockDrive(Drive: AnsiChar): Boolean; 
var 
    OldMode: UINT; 
    BytesReturned: Cardinal; 
begin 
    Result := False; 

    OldMode := SetErrorMode(SEM_FAILCRITICALERRORS); 
    try 
     HLockedVol := CreateFile(PChar(Format('\\.\%s:', [AnsiLowerCase(string(Drive))])), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, 
     OPEN_EXISTING, 0, 0); 
     if HLockedVol <> INVALID_HANDLE_VALUE then 
     begin 
     Result := DeviceIoControl(HLockedVol, FSCTL_LOCK_VOLUME, nil, 0, nil, 0, BytesReturned, nil); 
     end; 
    finally 
     SetErrorMode(OldMode); 
    end; 
end; 

function UnlockDrive: Boolean; 
var 
    OldMode: UINT; 
    BytesReturned: Cardinal; 
begin 
    Result := False; 

    OldMode := SetErrorMode(SEM_FAILCRITICALERRORS); 
    try 
     if HLockedVol <> INVALID_HANDLE_VALUE then 
     begin 
     try 
      Result := DeviceIoControl(HLockedVol, FSCTL_UNLOCK_VOLUME, nil, 0, nil, 0, BytesReturned, nil); 
     finally 
      CloseHandle(HLockedVol); 
     end; 
     end; 
    finally 
     SetErrorMode(OldMode); 
    end; 
end; 

私はHLockedVolを使用することを想定していますが、私は方法がわからない...

あなたは私を助けてくださいことはできますか？ ありがとうございます。

Answer 1

何かを開いてファイルハンドルを受け取りました。書き込むには、WriteFileを使用します。あなたがストリームにもっと慣れている場合は、THandleStreamの中にハンドルをラップすることができます。

ファイルを書き込んでいないことに注意してください。ディスクに直接書き込んでいます。の下にあります。 "ファイル"という概念が存在する抽象レベルです。その間に（ボリュームをロックしているため）通常のファイルに対してはI/Oを実行することはできません。

これはあなたが質問した質問に対する回答ですが、おそらくあなたの問題の解決策ではありません。あなたの問題を説明する新しい質問を投稿してください。あなたが今現在追求している解決策について心配しないでください。