摘要：作者: 周勇
如果您是一位局域网的系统管理员的话，肯定要经常对连接在局域网中的各个工作组进行管理和维修，并对每一台工作组建立相关的信息档案，以后只要根据这些档案信息就知道对应的工作组的运行情况，从而可以大大提高管理的效率了。此时，可能有人说，要查看这些工作组的信息，不是还要一台一台地打开、一台一台地查看吗？的确，如果还是这样操作的话，工作效率肯定还是不会提高，那么我们有没有办法同时获取局域网中的......
摘要：何章梅
delphi作为快速开发windows95／nt下应用程序的工具，已经为越来越多的开发者采用。但是，如果要开发出专业的windows应用软件，还需要使用大量的windows api函数，以下是笔者开发管理软件中的几个应用实例。
一、判定windows版本
众所周知，windows95／nt某些地方有些差别，为了使应用程序避免出现因为系统不符合而导致的错误，有必要自动判定系统版......
用自动化往Word、Excel中输出数据库内容unit officeform;
【程序编程相关:
Delphi中的字符串
】 【推荐阅读:
DELPHI图形编辑技巧二则】
interface 【扩展信息:
揭开Outlook Express编辑器】
uses
sysutils, windows, messages, classes, graphics,
controls, forms, dbctrls, stdctrls, dbtables,
extctrls, mask, db, dialogs, excel97, word97,
oleserver;
type
tformoff = class(tform)
dbedit3: tdbedit;
label3: tlabel;
label2: tlabel;
dbedit2: tdbedit;
dbedit1: tdbedit;
label1: tlabel;
dbnavigator1: tdbnavigator;
table1: ttable;
datasource1: tdatasource;
btnword: tbutton;
btnexcel: tbutton;
savedialog1: tsavedialog;
excelapplication1: texcelapplication;
worddocument1: tworddocument;
procedure btnwordclick(sender: tobject);
procedure btnexcelclick(sender: tobject);
end;
var
formoff: tformoff;
implementation
{$r *.dfm}
uses
comobj, activex;
...
下一页 摘要：function getappversion:string;
{取应用程式的版本号程式，如有版本号，返回值为版本号的值，否则返回值为空
返回值的格式为如1.0.0.0
胡国荣 2000/11/04 }
function getfileversion(filename: string): string;
type
pverinfo = ^tvs_fixedfileinfo;
t......
