Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 712 • TDictionary Custom Sort 6 710 • Fast Watermark Sources 6 490 • 3D Designer 9 427 • Sik Screen Capture 6 824 • Patch Maker 7 266 • Айболит (remote control) 7 221 • ListBox Drag & Drop 6 072 • Доска для игры Реверси 97 764 • Графические эффекты 7 396 • Рисование по маске 6 693 • Перетаскивание изображений 5 547 • Canvas Drawing 5 934 • Рисование Луны 5 702 • Поворот изображения 5 165 • Рисование стержней 3 768 • Paint on Shape 2 954 • Генератор кроссвордов 3 883 • Головоломка Paletto 3 095 • Теорема Монжа об окружностях 3 906 • Пазл Numbrix 2 569 • Заборы и коммивояжеры 3 353 • Игра HIP 2 302 • Игра Go (Го) 2 201 • Симулятор лифта 2 610 • Программа укладки плитки 2 200 • Генератор лабиринта 2 713 • Проверка числового ввода 2 355 • HEX View 2 692 • Физический маятник 2 364

Главная

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

Компоненты

Форум

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

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

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

или

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