迷你SQLServer用户指南(6)

作者在 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

软件开发技术杂谈 | 阅读 1646 次
文章评论,共0条
游客请输入验证码