Форум: "Основная";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];
ВнизЗапуск файлов Word Excel и т.д. Найти похожие ветки
← →
sergg (2005-05-24 18:27) [0]Уважаемые мастера!
мне нужно запускать из программы файлы Word, Excel, тхт и др форматов, подскажите пожалуйста как это правильно сделать
← →
MalkoLinge © (2005-05-24 18:33) [1]createprocess +F1
← →
Virgo_Style © (2005-05-24 19:41) [2]MalkoLinge © (24.05.05 18:33) [1]
imho, удобнее использовать ShellExecute...
← →
nsg © (2005-05-25 08:59) [3]А можно и так.
В uses добавить ComObj
MyXL := CreateOleObject("Excel.Application");// Создаем обьект EXCEL
XL.WorkBooks.Add;// новый документ
MyXL.Visible := true;//делаем его видимым
MyXL.WorkBooks[1].WorkSheets[1].Cells[1, 1] := "Этот документ создан моей супер программой...";// эту строчку можно не писать
← →
sergg (2005-05-25 13:00) [4]Спасибо всем, но ShellExecute весьма удобнее всего остального ;)
← →
KSK (2005-05-25 13:06) [5]в uses добавить
ShellAPI
function ShellExecAndWait(const FileName: string; const Parameters: string;
const Verb: string; CmdShow: Integer): Boolean;
function PCharOrNil(const S: AnsiString): PAnsiChar;
begin
if Length(S) = 0 then
Result := nil
else
Result := PAnsiChar(S);
end;
var
Sei: TShellExecuteInfo;
Res: LongBool;
Msg: tagMSG;
begin
FillChar(Sei, SizeOf(Sei), #0);
Sei.cbSize := SizeOf(Sei);
Sei.fMask := SEE_MASK_DOENVSUBST or SEE_MASK_FLAG_NO_UI or
SEE_MASK_NOCLOSEPROCESS or
SEE_MASK_FLAG_DDEWAIT;
Sei.lpFile := PChar(FileName);
Sei.lpParameters := PCharOrNil(Parameters);
Sei.lpVerb := PCharOrNil(Verb);
Sei.nShow := CmdShow;
Result := ShellExecuteEx(@Sei);
if Result then
begin
WaitForInputIdle(Sei.hProcess, INFINITE);
while (WaitForSingleObject(Sei.hProcess, 10) = WAIT_TIMEOUT) do
begin
repeat
Res := PeekMessage(Msg, Sei.Wnd, 0, 0, PM_REMOVE);
if Res then
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
until (Res = False);
end;
CloseHandle(Sei.hProcess);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
"к примеру указывешь файл www
ShellExecAndWait("c:\www.rtf", "", "", SW_SHOW);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c