推荐一个好用的电子邮件软件(100分)

  • 主题发起人 主题发起人 woodstock
  • 开始时间 开始时间
W

woodstock

Unregistered / Unconfirmed
GUEST, unregistred user!

http://www.dreammail.org/bbs/index.asp
 
z找不到服务器!
 
www.dreammail.org
 
看着还行
下一个试试
 
不错!
继续努力!
.........................
 
不错,用了很多DEV Express公司的控件!
顺便问一下那个浮动的条子(跟Foxmail一样的那个显示邮件名称的)是由什么东东作的?
 
下载中...
 
不错,用了很多DEV Express公司的控件!
顺便问一下那个浮动的条子(跟Foxmail一样的那个显示邮件名称的)是由什么东东作的?
-----在TPanel上画的,设置了一个TTimer组建来滚动
 
那问一下楼主:
你们在启动时会调起office2000的安装程序是如何解决的呢?
DhtmlEdit的这个问题困扰了我很久了,至今没有解决!
难道是要注册一下这个ocx?
 
to oldsheep35,
软件启动的时候,先判断Office2k是否安装,
如果安装了,则调用
msiexec /i <Office Product Code> /qb- REMOVE=HTMLSourceEditing
Where <Office Product Code> is one of the following:
Office 2000 Premium {00000409-78E1-11D2-B60F-006097C998E7}
Office 2000 Professional {00010409-78E1-11D2-B60F-006097C998E7}
Office 2000 Standard {00020409-78E1-11D2-B60F-006097C998E7}
Office 2000 SBE {00030409-78E1-11D2-B60F-006097C998E7}
 
试用中。。。。。
 
to woodstock
我按照你说的方法做了,可是还是不行!
代码如下:请指教~
Const
FPath = '/Software/Microsoft/Office/9.0/Excel/InstallRoot';
Office2KPremium = '{00000409-78E1-11D2-B60F-006097C998E7}';
Office2KProfessional = '{00010409-78E1-11D2-B60F-006097C998E7}';
Office2KStandard = '{00020409-78E1-11D2-B60F-006097C998E7}';
Office2KSBE = '{00030409-78E1-11D2-B60F-006097C998E7}';
DHTMLEditOCX = 'dhtmled.ocx';
Var
Reg : TRegistry;
begin
{解决在启动时调用OFFICE2K的安装程序的问题}
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.KeyExists(FPath) then
begin
Winexec(Pchar('msiexec /i '+Office2KPremium+' /qb- REMOVE=HTMLSourceEditing'),SW_HIDE);
Winexec(Pchar('msiexec /i '+Office2KProfessional+' /qb- REMOVE=HTMLSourceEditing'),SW_HIDE);
Winexec(Pchar('msiexec /i '+Office2KStandard+' /qb- REMOVE=HTMLSourceEditing'),SW_HIDE);
Winexec(Pchar('msiexec /i '+Office2KSBE+' /qb- REMOVE=HTMLSourceEditing'),SW_HIDE);
WinExec(PChar('regsvr32 '+ExtractFilePath(Application.ExeName)+DHTMLEditOCX),SW_HIDE);
end;
Finally
Reg.Free;
end;

显示的结果还是不行!仍然会调用Office安装程序并提示要光盘!如果取消可以进入程序,但再次启动仍旧要调用!
 
procedure CheckedOffice2kInstall;
//解决Office2k 安装的时候,老是出现写邮件的时候,提示插入安装盘
var
RegF: TRegistry;
sProductID: String;
DmDone: Boolean;
begin
RegF := TRegistry.Create;
RegF.RootKey := HKEY_CURRENT_USER;
if RegF.OpenKey('Software/Microsoft/Office/9.0/Common/General/InstallProductID', false) then
sProductID := Trim(RegF.ReadString(''))
else
sProductID := '';
if sProductID <> '' then
begin
DmDone := RegF.KeyExists('DmDone');
if not DmDone then
begin
RegF.CreateKey('DmDone');
ShellExecute(0, 'open', 'msiexec', Pchar('/i '+sProductID+' /qb- REMOVE=HTMLSourceEditing'),nil, sw_hide);
end;
end;

RegF.Free;
end;
 
楼主:感谢你的回答!只是第一次运行还是会显示安装的界面!
请到这里领分:http://www.delphibbs.com/delphibbs/dispq.asp?lid=2254910
 
不好用,装上以后菜单什么也没有,全是???????????
这是怎么回事
 
楼主,帮我看看这个问题
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2288116
在线等待!
 
woodstock,
我用你说的解决office2K安装的代码还是有问题
我在一台机器上测试
他的注册表中只有General
没有InstallProductID项
所以无法获取到sproductID
也就没有办法操作了!
不过在Common下有个InstallElevlated
有个名称{00000804-78E1-11D2-B60F-006097C998E7}(跟 ID的值很相似)
这怎么解决
只有让他安装了office才解决,没有就解决不了!
这个怎么办?
 
后退
顶部