ホーム
Top.Mail.Ru Yandeks.Metrika
フォーラム: "WinAPI";
現在のアーカイブ:2004.12.12;
ダウンロード:[xml.tar.bz2];

ダウン

ドライブにディスクがあるかどうかを確認する方法 似ている枝を探す


Кириешки ©   (2004-10-30 13:26) [0]

CDドライブの文字、​​名前の順に扱いますが、ドライブにディスクがあるかどうかを判断する方法はわかりません。 プロンプトpliz。



ssk ©   (2004-10-30 13:45) [1]

オプションとして:シリアル番号を読みます。 何かがあれば、ディスクは次のとおりです。

function DiscInDrive(D:char):ブール値。 var VolumeName、FileSystemName:Charの配列[0..MAX_PATH-1]。 VolumeSerialNo:DWord; MaxComponentLength、FileSystemFlags:カーディナル。 始まる GetVolumeInformation(PAnsiChar(D + ":\")、VolumeName、MAX_PATH、 @VolumeSerialNo、MaxComponentLength、FileSystemFlags、 FileSystemName、MAX_PATH); 結果:= VolumeSerialNo <> 0; 終わり

この機能は、きれいな空白や消去されたRWでは機能しません。



SSSdd   (2004-10-30 14:24) [2]

ssk©ありがとう。



Кириешки ©   (2004-10-30 14:26) [3]

SSK
ありがとう。



grom   (2004-10-30 16:05) [4]

> CDドライブを飛ばす、 それから彼らの名前
私はCDドライブの手紙を飛ばします - それは簡単です。
それから彼らの名前 - しかしこれが私の興味を引くものです。
CDドライブの名前はどのようにしてわかりますか。
できれば教えてください。



abc   (2004-10-30 16:12) [5]

>ドライブにディスクがありますか
{ディスクが存在する場合/挿入されている場合...}
GetHDDInfo(S [I]、VolumeName、FileSystemName、VolumeSerialNo、
MaxComponentLength、FileSystemFlags)次に{...それから情報を集めます}

http://delphibase.endimus.ru/?action=viewfunc&topic=harddisk&id=10139



OSokin ©   (2004-10-30 17:08) [6]

私が同じ(ほとんど)答えに答える第三のトピック...司会者、あなたは少なくとも2ヶ月前のメッセージを削除します、そうでなければ人々はそれらを見ることができません...
とにかく、それはすでにFAQに入れる時が来た

ディスクがドライブに入っているかどうかを確認するには、関数 "GetDiskFreeSpace(pchar(disk +":\ ")、a、a、a、a);"を使用します。 "disk"はディスクの名前、 "a"は変数です。枢機卿。 この関数がfalseを返した場合は、ドライブにディスクがありません。



abc   (2004-10-30 18:54) [7]

VAR
q、e:Charの配列[0..MAX_PATH-1]。
m:枢機卿。
始まる
GetVolumeInformation(PChar( "d:\")、q、MAX_PATH、@ m、m、m、e、MAX_PATH)の場合...
それ以外の場合

ドライブからディスクを取り出すとき、GetDiskFreeSpaceのGetVolumeInformationはエラーを出しません。



Петрук Игорь   (2004-10-31 09:22) [8]

ドライブにディスクがない場合、FindFirst関数は何らかの値を返します。 これの助けであなたはこの値を見つけることができます。 ディスクがない場合は、エラーメッセージが表示されます。 関数を実行するときは、例外処理をオフにすることをお勧めします。 そして、あなたは偶然Kremenchugからではなく、Kyrieshkiです。



ページ: 1 全枝

フォーラム: "WinAPI";
現在のアーカイブ:2004.12.12;
ダウンロード:[xml.tar.bz2];

2階





メモリ:0.57 MB
時間:0.061 c
3-1100507408
契約期間
2004-11-15 11:30
2004.12.12
ストアドプロシージャの使用に関する質問


1-1101055819
ガブリロフV.A.
2004-11-21 19:50
2004.12.12
デスクトップからのリンクが機能しないのはなぜですか


1-1101728709
ボビーデジタル
2004-11-29 14:45
2004.12.12
コンボ


4-1099019554
レントゲン
2004-10-29 07:12
2004.12.12
ウィンドウオブジェクトを選択


1-1101646116
タジク
2004-11-28 15:48
2004.12.12
動的配列





アフリカーンス語 アルバニア語 アラビア語 アルメニア語 アゼルバイジャン語 バスク ベラルーシ ブルガリア語 カタルーニャ語 中国語(簡体字) 中国語(繁体字) クロアチア語 チェコ語 デンマーク語 オランダ語 英語 エストニア語 フィリピン語 フィンランド語 フランス語
ガリシア語 ジョージアン ドイツ語 ギリシャ語 ハイチ語 ヘブライ語 ヒンディー語 ハンガリー語 アイスランド語 インドネシア語 アイリッシュ イタリア語 日本語 韓国語 ラトビア語 リトアニア マケドニア語 マレー語 マルタ語 ノルウェー語
ペルシア語 ポーランド語 ポルトガル語 ルーマニア語 ロシア語 セルビア スロバキア語 スロベニア語 スペイン語 スワヒリ語 スウェーデン語 タイ語 トルコ語 ウクライナ語 ウルドゥー語 ベトナム語 ウェールズ語 イディッシュ語 ベンガル語 ボスニア語
セブアノ語 エスペラント グジャラート語 ハウサ語 モン族 イボ ジャワ語 カンナダ語 クメール語 ラオ語 ラテン マオリ語 マラーティー語 モンゴル語 ネパール語 パンジャブ語 ソマリ タミル語 テルグ語 ヨルバ語
ズールー語
Английский Французский Немецкий Итальянский ポルトガル語 Русский Испанский