关于创建快捷方式和文件复制的问题(100分)

S

sunkin

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大侠,小弟要做一个自己的安装程序,现在遇到创建复制文件并创建复制路径问题,
还有创建快捷方式的问题(是不是有什么函数),
并能创建所需路径还有在桌面创建快捷方式的源程序,
谁有这方面的经验请指教,不胜感激!
 
大家请帮忙吗怎么没人理呢
 
用专用的安装制作工具就可以了啊,比如installer等
 
uses ...,registry,comobj,shlobj,activex;

procedure AddDesktopLink(linkfile, programfile: string);
var
Reg: TRegIniFile;
WFileName: WideString;
AnObj: IUnKnown;
Shlink: IShellLink;
PFile: IPersistFile;
begin
try
coinitialize(nil);
AnObj := CreateComObject(CLSID_ShellLink);
shLink := AnObj as IShellLink;
PFile := AnObj as IPersistFile;
shLink.SetPath(PChar(programfile));
shLink.SetWorkingDirectory(PChar(ExtractFilePath(ProgramFile)));
Reg := TRegIniFile.Create('Software/MicroSoft/Windows/CurrentVersion/Explorer');
WFileName := Reg.ReadString('Shell Folders', 'Desktop', '') +
'/' + linkfile + '.lnk';
PFile.Save(PWChar(WFileName), True);
Reg.Free;
except
end;
end;
 
ADOQuery的能不能缓存更新, 就是说我想更新几条记录一起存的,而不是一条记录后
就保存,(绑定控件)
 
解决上述问题马上给分不够再加也可以呀!
 
创建目录?MkDir呀
桌面快捷方式就用楼上兄弟的代码吧
还有adoquery有个cachesize的属性,我不知道是不是符合你的要求,看看她的帮助吧
 
to : naughtboy
不好意思 ,创建目录?MkDir
有没有这方面的源码或者写一样怎么使用小弟比较笨,
请指教!

 
mkdir只有一个参数,就是路径名,比如mkdir('c:/tmp'),do you know?
 

哎呀!来晚了一步,快捷方式已经建立了,我来给你建立安装目录.

!!!通过验证了!!!

例如目录为"C:/SETUP/DEMO/JPG"

{$I-}//必须加
Procedure MyMKDIR(_Dir:String);
Var
P : Word;
Begin
P:=Pos('/',_Dir);
If (P=0) Then
Begin
MKDir(_Dir);
If (IOResult<>0) Then Begin End; //必须加
Exit;
End;

P:=P+1;
Repeat
If (_Dir[P]='/') Then
Begin
MKDir(Copy(_Dir,1,P-1));
P:=P+1;
If (IOResult<>0) Then Begin End; //必须加
End Else
P:=P+1;
Until (P>=LengTh(_Dir));
End;
 
多人接受答案了。
 
顶部