刚用Delphi,代码运行出错
procedure TForm_Main.Button_startupClick(Sender: TObject);
var
dbvar :string;
begin
dbvar :=edit1.text;
winexec(dbvar,SW_SHOW);
end;end.
procedure TForm_Main.Button_startupClick(Sender: TObject);
var
dbvar :string;
begin
dbvar :=edit1.text;
winexec(dbvar,SW_SHOW);
end;end.
var
dbvar :string;
begin
dbvar :=edit1.text;
winexec(PChar(dbvar), SW_SHOW);
end;
或者你直接dbvar定义为Pchar!
winexec(pchar(dbvar),SW_SHOW);
再不行贴出错误信息。