ExtractFilePath(Application.ExeName) = C:\...\...\ 最後は\になる
ディレクトリが存在しない場合は作成する。すでに存在している場合にMkDirを実行するとエラーが発生する
If not DirectoryExists(ExtractFilePath(Application.ExeName) + 'NewFolder\' then //If文丈では最後に\をつける
フォルダ指定のダイアログボックスを表示する
procedure TForm1.Button3Click(Sender: TObject);
var
RootFolder : String;
SelectFolder : String;
begin
RootFolder := '';
SelectFolder := '';
if SelectDirectory('フォルダの指定',
RootFolder,
SelectFolder,
[sdNewUI, sdNewFolder, sdShowEdit],
Self) then begin
MessageBox(Handle, PChar(SelectFolder), '選択フォルダ', MB_ICONINFORMATION);
end;
フロッピーディスクが入っているかチェック
procedure TForm1.Button1Click(Sender: TObject);
var EMode: Word;
begin
EMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
if DiskSize(Ord('A')-$40) <> -1 then
ShowMessage('Disk in drive A: !')
else
ShowMessage('No disk in drive A: !');
finally
SetErrorMode(EMode);
end;