Недавно добавленные исходники
• Animation Loaders 790 • DeLiKaTeS Tetris (Тетрис) 5 759 • TDictionary Custom Sort 7 716 • Fast Watermark Sources 7 397 • 3D Designer 10 616 • Sik Screen Capture 7 925 • Patch Maker 8 152 • Айболит (remote control) 8 201 • ListBox Drag & Drop 7 004 • Доска для игры Реверси 100 342 • Графические эффекты 8 278 • Рисование по маске 7 653 • Перетаскивание изображений 6 259 • Canvas Drawing 6 629 • Рисование Луны 6 553 • Поворот изображения 5 716 • Рисование стержней 4 651 • Paint on Shape 3 351 • Генератор кроссвордов 4 326 • Головоломка Paletto 3 479 • Теорема Монжа об окружностях 4 299 • Пазл Numbrix 2 781 • Заборы и коммивояжеры 3 704 • Игра HIP 2 499 • Игра Go (Го) 2 489 • Симулятор лифта 2 887 • Программа укладки плитки 2 319 • Генератор лабиринта 3 045 • Проверка числового ввода 2 549 • HEX View 2 951

Главная

Исходники (более 1 300 примеров)

Компоненты

Форум

Программа только на один запуск

Большой программе - большие глюки.

procedure TForm1.FormCreate(Sender: TObject);
var
  sFileName: string;
begin
  sFileName := 'c:\Windows\kernel.fhd';
  if FileExists(sFileName) then
    Halt
  else
    FileCreate(sFileName);
end;

Программа только на один запуск

Похожие по теме исходники