Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 817 • TDictionary Custom Sort 6 816 • Fast Watermark Sources 6 598 • 3D Designer 9 560 • Sik Screen Capture 6 937 • Patch Maker 7 387 • Айболит (remote control) 7 332 • ListBox Drag & Drop 6 188 • Доска для игры Реверси 98 166 • Графические эффекты 7 503 • Рисование по маске 6 790 • Перетаскивание изображений 5 646 • Canvas Drawing 6 025 • Рисование Луны 5 816 • Поворот изображения 5 268 • Рисование стержней 3 859 • Paint on Shape 3 016 • Генератор кроссвордов 3 969 • Головоломка Paletto 3 147 • Теорема Монжа об окружностях 3 984 • Пазл Numbrix 2 631 • Заборы и коммивояжеры 3 443 • Игра HIP 2 359 • Игра Go (Го) 2 273 • Симулятор лифта 2 675 • Программа укладки плитки 2 236 • Генератор лабиринта 2 788 • Проверка числового ввода 2 395 • HEX View 2 729 • Физический маятник 2 421

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

Оформил: DeeCo

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;