Форум: "Основная";
Текущий архив: 2003.05.12;
Скачать: [xml.tar.bz2];
ВнизExcel Найти похожие ветки
← →
Лана Розанова (2003-04-30 10:20) [0]Как программно запустить файл Excel. (чтобы и сам excel запустился и файл нужный)
СПАСИБО!!!
← →
PGM (2003-04-30 10:24) [1]ShellExecute поможет.
← →
Навичек (2003-04-30 10:38) [2]Я так делал.... мож конечно и замутно но работает
Var
wrdApp:TWordApplication;
....
wrdApp:=TWordApplication.Create(Self);
with wrdApp do
begin
ConnectKind := ckRunningOrNew;
AutoConnect := True;
AutoQuit := False;
Visible:=True;
end;
OpenDoc(AppPath+"DocName.rtf");
WrdApp.free; //(WrdApp.Disconnect что то еще такое было точно не помню)
procedure OpenDoc(FileName:String);
var
True_, False_, DocumentFileName,BlankStr,FormatOption: OleVariant;
begin
False_ := False;
True_ := True;
BlankStr := "";
FormatOption:= wdOpenFormatAuto;
DocumentFileName := FileName;
wrdApp.Documents.Open(DocumentFileName, False_, False_,
False_, BlankStr, BlankStr, False_, BlankStr, BlankStr,FormatOption);
end;
← →
Лана Розанова (2003-04-30 11:19) [3]Так надо хендл знать... с ShellExecute
← →
Separator (2003-04-30 11:21) [4]
ShellExecute(0, "open", "Книга1.xls", nil, nil, SW_RESTORE)
← →
Separator (2003-04-30 11:23) [5]ShellExecute(Application.Handle, "open", "Книга1.xls", nil, nil, SW_RESTORE)
← →
Лана Розанова (2003-04-30 11:28) [6]Спасибо, получилось.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.12;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c