Поиск и замена файлов

[steo_ler]

Помогите! Срочно нужно сделать такую программу: при её запуске происходит установка шрифта (если он уже стоит, то установка не происходит) и следом происходит запуск другой внешней програмы. Всё!
От сюда вопрос: сложно ли всё это сделать при минимальном моём уровне знаний (знаю как создать форму, кинуть пару кнопок, произвести простейшие мат. операции и вывести результат).
Первая проблемма с которой столкнулся, это запуск внешней программы функцией WinExec:

 
 winexec('model.exe',sw_restore);

не работает!? Подскажите! Буду благодарен любому совету!

[Stilet]

if winexec('model.exe',sw_restore)<31 then RaiseLastWin32Error

И посмотри выдает ли ошибку и какую...

[steo_ler]

И посмотри выдает ли ошибку и какую...

спасибо. вышла ошибка поиска файла, хотя файл внешней программы был сохранён в тот же каталог, что и основная программа, после того как полностью прописал путь к файлу внешенй проги

 
winexec('c:\proga\model.exe',sw_restore);

внешняя прога запустилась, но тогда следующий вопрос: как сделать так чтобы не приходилось каждый раз прописывать этот путь на новом компе!?

[Stilet]

winexec(ExtractFilePath(paramstr(0) )+'model.exe',sw_restore);
или
winexec(ExtractFilePath(paramstr(0) )+'\model.exe',sw_restore);

Точно просто не помню )

[steo_ler]

winexec(ExtractFilePath(paramstr(0))+'model.exe',s w_restore);

по данной строке выдаёт вот такую ошибку:

[Error] Unit1.pas(40): Incompatible types: 'String' and 'PAnsiChar'

насколько я понял ExtractFilePath(paramstr(0)) - возвращает не совсем тот тип данных, который требует winexec, как с этим бороться?

и ещё вопрос: как выполнить копирование файла Arial.ttf в папку, допустим, c:\windows\fonts?

[Stilet]

winexec(pchar(ExtractFilePath(paramstr(0))+'model .exe'),s w_restore);

Файл копируется функой CopyFileTo('Arial.ttf', 'c:\windows\fonts\Arial.ttf')
Ну есть и др. возможности...