作者在 2007-08-02 17:13:00 发布以下内容
MiniSQL为本人打造的另一款SQL Server绿色版软件,不再有病毒附加、不再有大煞风景的服务控制器界面,这样,更利于和应用程序的一起打包发布。本页是该系统用户指南的第六页:
//
// 创建快捷方式...
form6.memo1.lines.add('正在创建系统快捷方式...');
if form3.checkbox1.checked or form3.checkbox2.checked then
begin
Macro:=Format('[CreateGroup(%s)]', ['快递帐务处理系统']) + #13#10;
StrPCopy(Cmd,Macro);
DdeClientConv1.OpenLink;
if DdeClientConv1.ExecuteMacro(Cmd,False)=False then
begin
application.MessageBox('无法在开始菜单下建立快捷方式,请自行建立!','建立快捷方式错误',MB_OK);
form6.close;
form5.show;
exit;
end;
Macro:=Format('[AddItem("%s",%s)]', [targetdir+'\minisql.exe','启动数据库服务']) + #13#10;
StrPCopy(Cmd, Macro);
DdeClientCo