| ホーム アプリケーション ライブラリ Tips くだらないTips リンク集 Borland 賛歌 |
 |
 |
|
■フロッピーが挿入されているかチェックしたい。 フロッピーが入っているかチェックするには GetDiskFreeSpace API をコールしてみて、エラーが返されるかどうかで判定します。 通常は Windows が勝手にメッセージボックスを出すので、それを防ぐために、 エラーモードを少し落として、メッセージが表示されないようにします。 ここでは、以下のような関数を用意します。 引数 pDrive ： ドライブレター一文字（”A”など） 返却値 入っている場合 : True 入っていない場合 : False
function CheckDriveReady(const pDrive:Char):Boolean;
var
a1, a2, a3, a4:DWORD;
aOldMode:Integer;
aDrive:string;
begin
aDrive := pDrive + ':\';
aOldMode := SetErrorMode( SEM_FAILCRITICALERRORS );
SetLastError( 0 );
GetDiskFreeSpace( PChar( aDrive ), a1, a2, a3, a4 );
Result := ( GetLastError() = 0 );
SetErrorMode( aOldMode );
end;
|
| ホーム アプリケーション ライブラリ Tips くだらないTips リンク集 Borland 賛歌 |