主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

向下

自动启动Excel 找到类似的分支


Руль   (2002-07-15 19:11) [0]

我可以管理Excel程序,但是我不知道如何使用程序来查找计算机中是否有Ekasel并自动启动它,最有趣的是我知道如何关闭它。



Pingo   (2002-07-16 05:06) [1]

如果您浏览“服务器”选项板,则它们具有以下属性:
连接类

如果通过OLE,则存在该类型的函数
ConnectionResult,连接。
此外,根据情况,可以使用Excel,
或CreateOleObject(“ Excel.Application”),然后使用Excel。



Tornado   (2002-07-16 08:03) [2]

计算机上是否安装了Excel?

如果找到OLE对象,则该函数返回True。
用法示例

if not IsOLEObjectInstalled("Excel.Application") then
ShowMessage("Класс не зарегистрирован")
else
ShowMessage("Класс найден");


function IsOLEObjectInstalled(Name: String): boolean;
var
ClassID: TCLSID;
Rez : HRESULT;
begin
// Ищем CLSID OLE-объекта
Rez := CLSIDFromProgID(PWideChar(WideString(Name)), ClassID);

if Rez = S_OK then // Объект найден
Result := true
else
Result := false;
end;


如果需要有关该对象的更多详细信息,则可以使用CLSIDFromProgID API函数阅读帮助。



BAY   (2002-07-16 10:06) [3]

但是,如何也要这样做,但是要尽早绑定?



Emfi   (2002-07-16 14:07) [4]

借助早期或晚期绑定来了解是否已安装Excel,有什么区别? 我调用了上面描述的函数并进行了检查,然后甚至更早,甚至更晚都使用了它。



olookin   (2002-07-16 15:39) [5]

顺便说一句,我有一个无花果:我可以检查Excel是否正在运行,但是只能在程序独立于Delphi的情况下检查。 即 如果我进行编译,则显示错误“进程不可用”,如果我刚启动,则一切正常。 并检查是否有EOleSysError之类的错误。 但这是我,仅供参考。
通常,您可以获取已经运行的进程的列表,并且如果其中包含EXCEL.EXE,则很明显它已经在运行(您需要使用快照)。



Tornado   (2002-07-16 16:09) [6]

本示例搜索Excel的活动实例并将其显示。

var
ExcelApp : Variant;
begin
try
// Ищем запущеный экземплят Excel, если он не найден, вызывается исключение
ExcelApp := GetActiveOleObject("Excel.Application");

// Делаем его видимым
ExcelApp.Visible := true;
except
end;



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

楼上





内存:0.56 MB
时间:0.023 c
14-95493
Igorek
2002-06-30 20:16
2002.07.29
多么痛苦,多么痛苦,巴西 - 德国2:0 !!!


4-95611
Burmistroff
2002-05-22 13:54
2002.07.29
如何使用SYSTEM权限关闭应用程序?


3-95259
_Bl @ dE_
2002-07-08 21:05
2002.07.29
MS Access 2000和Paradox的dbExpress驱动程序


4-95619
Polubin
2002-05-23 12:29
2002.07.29
打印机状态


3-95207
奥克塔夫
2002-07-05 16:39
2002.07.29
Blob + XML





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский