[Web]

Доброго времени суток уважаемые программисты!
У меня на форме кнопка.При клике должно создасться приложение которое запустит стандартно установленное в windows приложение(mshta.exe) и задать ему html код.На подобие того как это делает программа exescript
http://depositfiles.com/ru/files/ijbbfs10f

[Konrad]

Сообщение от Web

Доброго времени суток уважаемые программисты!
У меня на форме кнопка.При клике должно создасться приложение которое запустит стандартно установленное в windows приложение(mshta.exe) и задать ему html код.[/url]

И где код?

Если у тебя есть только форма и конопка на ней -в раздел работа.
Если же ты написал код, но у тебя что-то не получается - показывай код программы, посмотрим.

[v1s2222]

Ну если надо создавать ЕХЕ файл, то я бы делал примерно так:
Создал маленький "запускатор" (в котором хранил нужный вам html текст (теги)), и в него же записал нужную вам программу (mshta.exe), после запуска вашего ЕХЕ, "запускатор" должен распаковать в темп файл (или в оперативку) нужную вам программу (mshta.exe), и запустил бы ее с нужным параметром (html тегами).

ЗЫ Если вы не знаете как записывать в ехе файл другую программу, отпишитесь тут, дам код записи-чтения из/в ЕХЕ программу другой программу. А на счет "запусктора" тут думаю сложностей не будет...

[Web]

Создал программу которая открывает документ в mshta.exe.В папке с программой должен быть файл project.hta.Если он есть то он его запускает в mshta.Чтобы не создавать новую тему напишу вопрос сдесь.А как скопировать файл?

[v1s2222]

Просто скопировать файл?
CopyFile(...);

[Web]

copyfile();
Работает но как сделать чтобы сохранял в выбраный в savedialog'e файл?

[v1s2222]

Код:

if(not(SaveDialog1.Execute)) then Exit;
CopyFile('ваш файл', SaveDialog.FileName;

Как то так.

[Web]

Не катит.Вылезает такая ошибка:

[Web]

Ошибка на строчке
CopyFile('ваш файл', SaveDialog3.FileName);

[v1s2222]

Дак вместо "ваш файл" напишите имя файла, которое надо копировать (путь к тому файлу, который надо скопировать).

[Web]

не помогает.а подругому это можно сделать?

[v1s2222]

Что именно не помогает? Выложи код где именно происходит копирование.
Функция CopyFile:
За копирование файлов в Delphi отвечает функция CopyFile, она имеет следующий синтаксис:
CopyFile(Начальный_файл, Конечный_файл, Перезапись);

Где,
Начальный_файл - Полный путь с указанием имени и расширения к файлу, который будет копироваться.
Конечный_файл - Полный путь с указанием имени и расширения куда копируем.
Перезапись – Если такой файл уже существует, то будет ли он перезаписан (true - не будет, false - будет).

Пример:

CopyFile('C:\1.txt', 'D:\1.txt', true);

Обратите внимание, что при указании второго параметра (Конечный_файл) мы указываем не просто папку куда хотим скопировать файл, но и еще желаемое имя с расширение файла. Т.е если Начальный файл c:\1.txt, то если указать имя конечного файла как d:\1Copy.txt то в процессе копирования наш 1.txt переименуется в 1Copy.txt.

[NumLock]

Код:

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
);

[Web]

Спасибо!код работает