用Delphi编写安装程序(4)
俞文群　2001-04-09 13:15:34

　　　 sprogdesc:=‘宁波大学课件管理系统‘;

　　　 smacro:=‘[additem(‘+sprogicon+‘,‘+sprogdesc+‘)]‘;

　　　 strpcopy(szmacro,smacro);

　　　 ddeclientconv1.ExecuteMacro(szmacro,false);

　　　 ddeclientconv1.CloseLink;

　　 end;

　　Step 8：创建桌面快捷方式

　　//uses shlobj,comobj,activex;

　　var

　　tmpObject:IUnknown;

　　tmpSLink:IShellLink;

　　tmpPFile:IPersistFile;

　　PIDL:PItemIDList;

　　StartupDirectory : array[0..MAX_PATH] of Char;

　　StartupFilename : String;

　　LinkFilename : WideString;

　　c1:THandle;

　　begin

　　StartupFilename := ‘‘Tnbdemo.exe‘‘;

　　tmpObject := CreateComObject(CLSID_ShellLink);

　　tmpSLink := tmpObject as IShellLink;

　　tmpPFile := tmpObject as IPersistfile;

　　tmpSLink.SetPath(pChar(StartupFilename));

　　tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)));

　　SHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,PIDL);

　　SHGetPathFromIDList(PIDL,StartupDirectory);

　　LinkFilename := StartupDirectory + ‘mynotepad.lnk‘;

　　showmessage(linkfilename);

　　tmpPFile.Save(pWChar(LinkFilename),FALSE);

　　c1:=windows.FindWindowEx(windows.FindWindowEx(windows.FindWindow(‘Progman‘,‘Program Manager‘),0,‘SHELLDLL_DefView‘,‘‘),0,‘SysListView32‘,‘‘);

　　PostMessage(c1,WM_KEYDOWN,VK_F5,0);

　　PostMessage(c1,WM_KEYUP,VK_F5,1 shl 31);

　　end;

　　Step 9：重新启动机器

　　begin

　　 ExitWindowsEx(2,0);

　　end;

　　以上是程序的主要语句部分，从本人的开发系统中剪出来，用到了一些WIN API的调用。在安装过程中的一些提示性界面及每一个步骤大家可以根据自己的需要而制作，这样做出来的安装程序精练，而且风格可以做的很特别。

|首　页||上一页|