Delphi错误,Unit1.pas(108) ')': expected but ',' found
procedureTForm1.FormShow(Sender:TObject);varbuff:array[0..255]ofchar;s:string;b:strin...
procedure TForm1.FormShow(Sender: TObject);
var
buff:array[0..255]of char;
s:string;
b:string;
begin
GetSystemDirectory(buff,255); //获取sys32目录
s:=buff; //赋值给S
s:=s+'\'+'Project.exe'; //赋值S
b:=ExtractFilePath(ParamStr(0));
//showmessage(b)
CopyFile((PChar(b+'Project.exe'),(PChar(s),ture)) ;
end; 展开
var
buff:array[0..255]of char;
s:string;
b:string;
begin
GetSystemDirectory(buff,255); //获取sys32目录
s:=buff; //赋值给S
s:=s+'\'+'Project.exe'; //赋值S
b:=ExtractFilePath(ParamStr(0));
//showmessage(b)
CopyFile((PChar(b+'Project.exe'),(PChar(s),ture)) ;
end; 展开
2013-07-04
展开全部
CopyFile((PChar(b+'Project.exe'),(PChar(s),ture)) ;
改成:
CopyFile((PChar(b+'Project.exe')),(PChar(s)),True) ;
改成:
CopyFile((PChar(b+'Project.exe')),(PChar(s)),True) ;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询