procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Application.Handle, PChar('Open'), PChar('C:WindowsRundll32.exe'), PChar('Shell32.dll,SHFormatDrive'), PChar('C:Windows'), SW_SHOWNORMAL); end;
Название: Проверить, установлена ли звуковая карта Дата публикации: 2004-06-17 (3023 Прочтено)