一下是代码:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Button1: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
winexec('mstsc.exe d:\Default.rdp /v:'+edit1.text+'',1); \\这里是提示出错的那一行!
end;end;end.我是想一按按钮就调用MSTSC.EXE这个程序,并且执行他后面的参数。在/V:后面调用edit1.text。但是
一运行就出那个提示incompatible type:'string'and'pointer'
我在网上也找了相关的解决办法,但是看不懂。呵呵~请大家帮帮忙!谢谢!
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Button1: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
winexec('mstsc.exe d:\Default.rdp /v:'+edit1.text+'',1); \\这里是提示出错的那一行!
end;end;end.我是想一按按钮就调用MSTSC.EXE这个程序,并且执行他后面的参数。在/V:后面调用edit1.text。但是
一运行就出那个提示incompatible type:'string'and'pointer'
我在网上也找了相关的解决办法,但是看不懂。呵呵~请大家帮帮忙!谢谢!
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Button1: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
winexec(Pchar('mstsc.exe d:\Default.rdp /v:'+edit1.text+''),1);
end;end;\\在这里出现错误!end.改成这样了以后,一运行在上面的END又出现了另一个错误!
【error】Unit1.pas[37]:'.'expected but '.'found
这是什么错误啊?怎么解决啊?
请教一下,为什么winexec(Pchar('mstsc.exe d:\Default.rdp /v:'+edit1.text+''),1);
这行里加入一个PCHAR就可以执行了?还有我不光要删除您说是多余的那行,还要删除上面的procedure Edit1Change(Sender: TObject);这行
才行?
我是自学DELPHI,以前也没接触过别的语言~~呵呵~~谢谢!!
偶也是新生,如果说错了请见谅... -_-
我想边学边实践~这样能记得住啊!呵呵~~
我翻译了一下这个出错的句子incompatible type:'string'and'pointer'
好像是说不兼容的类型是不是啊?
那看上面的代码他说的什么和什么不兼容啊?
那那个Pchar起的什么作用啊?
呵呵~~
谢谢大家!
我也在努力学习DELPHI!
谢谢老猪哼哼 Flyfish Rjahty大漠 LYSoft 秀峰!!