Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 563 • TDictionary Custom Sort 6 584 • Fast Watermark Sources 6 355 • 3D Designer 9 306 • Sik Screen Capture 6 688 • Patch Maker 7 060 • Айболит (remote control) 7 071 • ListBox Drag & Drop 5 940 • Доска для игры Реверси 97 448 • Графические эффекты 7 275 • Рисование по маске 6 572 • Перетаскивание изображений 5 444 • Canvas Drawing 5 813 • Рисование Луны 5 515 • Поворот изображения 5 047 • Рисование стержней 3 599 • Paint on Shape 2 848 • Генератор кроссвордов 3 729 • Головоломка Paletto 3 009 • Теорема Монжа об окружностях 3 812 • Пазл Numbrix 2 510 • Заборы и коммивояжеры 3 202 • Игра HIP 2 168 • Игра Go (Го) 2 102 • Симулятор лифта 2 480 • Программа укладки плитки 2 138 • Генератор лабиринта 2 615 • Проверка числового ввода 2 294 • HEX View 2 626 • Физический маятник 2 236

Главная

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

Компоненты

Форум

Как получить путь запущенного приложения

для этого используется функция ExtractFilePath. Вот примеры её использования:

MessageDlg('program path = ' + ExtractFilePath(Application.ExeName,
  mtInformation, [mbOk], 0);

или

function ApplicationPath: string;
begin
  Result := ExtractFilePath(ParamStr(0));
end;