![]() |
|
#1
|
|||
|
|||
![]() Доброго времени суток уважаемые программисты!
У меня на форме кнопка.При клике должно создасться приложение которое запустит стандартно установленное в windows приложение(mshta.exe) и задать ему html код.На подобие того как это делает программа exescript http://depositfiles.com/ru/files/ijbbfs10f |
#2
|
||||
|
||||
![]() Цитата:
И где код? Если у тебя есть только форма и конопка на ней -в раздел работа. Если же ты написал код, но у тебя что-то не получается - показывай код программы, посмотрим. |
#3
|
||||
|
||||
![]() Ну если надо создавать ЕХЕ файл, то я бы делал примерно так:
Создал маленький "запускатор" (в котором хранил нужный вам html текст (теги)), и в него же записал нужную вам программу (mshta.exe), после запуска вашего ЕХЕ, "запускатор" должен распаковать в темп файл (или в оперативку) нужную вам программу (mshta.exe), и запустил бы ее с нужным параметром (html тегами). ЗЫ Если вы не знаете как записывать в ехе файл другую программу, отпишитесь тут, дам код записи-чтения из/в ЕХЕ программу другой программу. А на счет "запусктора" тут думаю сложностей не будет... Помогаю за Спасибо ![]() |
#4
|
|||
|
|||
![]() Создал программу которая открывает документ в mshta.exe.В папке с программой должен быть файл project.hta.Если он есть то он его запускает в mshta.Чтобы не создавать новую тему напишу вопрос сдесь.А как скопировать файл?
|
#5
|
||||
|
||||
![]() Просто скопировать файл?
CopyFile(...); Помогаю за Спасибо ![]() |
#6
|
|||
|
|||
![]() copyfile();
Работает но как сделать чтобы сохранял в выбраный в savedialog'e файл? |
#7
|
||||
|
||||
![]() Код:
if(not(SaveDialog1.Execute)) then Exit; CopyFile('ваш файл', SaveDialog.FileName; Помогаю за Спасибо ![]() |
#8
|
|||
|
|||
![]() Не катит.Вылезает такая ошибка:
|
#9
|
|||
|
|||
![]() Ошибка на строчке
CopyFile('ваш файл', SaveDialog3.FileName); |
#10
|
||||
|
||||
![]() Дак вместо "ваш файл" напишите имя файла, которое надо копировать (путь к тому файлу, который надо скопировать).
Помогаю за Спасибо ![]() |
#11
|
|||
|
|||
![]() не помогает.а подругому это можно сделать?
|
#12
|
||||
|
||||
![]() Что именно не помогает? Выложи код где именно происходит копирование.
Функция CopyFile: За копирование файлов в Delphi отвечает функция CopyFile, она имеет следующий синтаксис: CopyFile(Начальный_файл, Конечный_файл, Перезапись); Где, Начальный_файл - Полный путь с указанием имени и расширения к файлу, который будет копироваться. Конечный_файл - Полный путь с указанием имени и расширения куда копируем. Перезапись – Если такой файл уже существует, то будет ли он перезаписан (true - не будет, false - будет). Пример: CopyFile('C:\1.txt', 'D:\1.txt', true); Обратите внимание, что при указании второго параметра (Конечный_файл) мы указываем не просто папку куда хотим скопировать файл, но и еще желаемое имя с расширение файла. Т.е если Начальный файл c:\1.txt, то если указать имя конечного файла как d:\1Copy.txt то в процессе копирования наш 1.txt переименуется в 1Copy.txt. Помогаю за Спасибо ![]() |
#13
|
||||
|
||||
![]() Код:
begin CopyFile('c:\WINDOWS\system32\user32.dll', PChar(SaveDialog1.FileName), False); end; потому что CopyFile это WinAPI функция: The CopyFile function copies an existing file to a new file. BOOL CopyFile( LPCTSTR lpExistingFileName, // pointer to name of an existing file LPCTSTR lpNewFileName, // pointer to filename to copy to BOOL bFailIfExists // flag for operation if file exists ); Пишу программы за еду. __________________ |
#14
|
|||
|
|||
![]() Спасибо!код работает
|