K
kebin
Unregistered / Unconfirmed
GUEST, unregistred user!
问题一:下列程序在win98下运行一切正常把文件夹Data复制到Databk,
但是在win95(早期的升级版)中无法复制?
procedure TForm1.Button1Click(Sender: TObject);
var
lpFileOp: TSHFileOpStruct;
ffrom,fto:string;
begin
ffrom:=extractfilepath(paramstr(0))+'Data'#0#0;
fto:=extractfilepath(paramstr(0))+'DataBk'#0#0;
with lpFileOp do
begin
Wnd := Self.Handle;
wFunc := FO_COPY;
pFrom := pchar(ffrom);
pTo := pchar(fto);
fFlags := FOF_allowundo;
hNameMappings := nil;
lpszProgressTitle := nil;
fAnyOperationsAborted := True;
end;
if SHFileOperation(lpFileOp)<>0 then ShowMessage('无法建立文件夹!');
end;
问题二:带数据库应用程序用Installshield Express For Delphi4.0制作安装盘,
在win98中运行正常,但在win95(早期的升级版)中无法运行,提示执行非法操作后
终止。安装delphi3后能正常运行。痛苦思索,几经周折发现windows/system下
必须要有imagehlp.dll(该文件在安装delphi3时装进了系统)。重装win95,把
imagehlp.dll文件拷贝到windows/system,程序出现了启动画面后提示comctl32.dll
版本必须〉xxxx,无奈之下从win97中借用。成功!!
那位能否解释以下其中奥妙?
但是在win95(早期的升级版)中无法复制?
procedure TForm1.Button1Click(Sender: TObject);
var
lpFileOp: TSHFileOpStruct;
ffrom,fto:string;
begin
ffrom:=extractfilepath(paramstr(0))+'Data'#0#0;
fto:=extractfilepath(paramstr(0))+'DataBk'#0#0;
with lpFileOp do
begin
Wnd := Self.Handle;
wFunc := FO_COPY;
pFrom := pchar(ffrom);
pTo := pchar(fto);
fFlags := FOF_allowundo;
hNameMappings := nil;
lpszProgressTitle := nil;
fAnyOperationsAborted := True;
end;
if SHFileOperation(lpFileOp)<>0 then ShowMessage('无法建立文件夹!');
end;
问题二:带数据库应用程序用Installshield Express For Delphi4.0制作安装盘,
在win98中运行正常,但在win95(早期的升级版)中无法运行,提示执行非法操作后
终止。安装delphi3后能正常运行。痛苦思索,几经周折发现windows/system下
必须要有imagehlp.dll(该文件在安装delphi3时装进了系统)。重装win95,把
imagehlp.dll文件拷贝到windows/system,程序出现了启动画面后提示comctl32.dll
版本必须〉xxxx,无奈之下从win97中借用。成功!!
那位能否解释以下其中奥妙?