Показать диалог форматирования

Delphi , Программа и Интерфейс , Диалоги и Фреймы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);
 begin
   ShellExecute(Application.Handle,
                PChar('Open'),
                PChar('C:\Windows\Rundll32.exe'),
                PChar('Shell32.dll,SHFormatDrive'),
                PChar('C:\Windows'),
                SW_SHOWNORMAL);
 end;

Here is the translation of the content into Russian:

```` // Процедура Button1Click вызывается при клике кнопки procedure TForm1.Button1Click(Sender: TObject); begin // Функция ShellExecute используется для выполнения внешних команд ShellExecute( // Объект приложения (основное окно приложения) Application.Handle,

 // Имя команды (в этом случае, "Открыть")
PChar('Открыть'),

 // Путь к исполняемому файлу, который будет выполнять команду
PChar('C:\Windows\Rundll32.exe'),

 // Параметры для исполняемого файла
PChar('Shell32.dll,SHFormatDrive'),

 // Путь к директории, где будет выполнена операция
PChar('C:\Windows'),

 // Стиль окна (в этом случае, нормальное окно)
SW_SHOWNORMAL);

end; ```

Код-сниппет использует функцию ShellExecute для открытия диалогового окна форматирования диска. Используется исполняемый файл Rundll32.exe для выполнения функции SHFormatDrive библиотеки Shell32.dll, которая форматирует диск, расположенный по адресу C:\Windows.

В статье приведен пример кода на Delphi для форматирования внешних накопителей с помощью функции ShellExecute и вызова процедуры SHFormatDrive из библиотеки Shell32.dll.

Комментарии и вопросы

:: Главная :: Диалоги и Фреймы ::