掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ExtractFileDriveとGetDriveType関数 (ID：34281)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
function CheckFD(S: String): Boolean; var P: String; begin P := ExtractFileDrive(S); if GetDriveType(PChar(P)) = 2 then Result := True else Result := False; end; procedure TForm4.Button1Click(Sender: TObject); begin if CheckFD('A:\TEST\TEXT.TXT') = True then Memo1.Lines.Add ('FD1'); if CheckFD('A:\ABC\') = True then Memo1.Lines.Add ('FD2'); end; これで FD1 FD2 と表示されるけど・・・・・ 再現不可
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.