简单问题! 怎样实现调用 带参数的程序,且参数是临时给定! 例: winexec('C;/.../ Abc.exe -id

  • 主题发起人 主题发起人 HaiGxj
  • 开始时间 开始时间
H

HaiGxj

Unregistered / Unconfirmed
GUEST, unregistred user!
简单问题! &nbsp;怎样实现调用 带参数的程序,且参数是临时给定! 例: winexec('C;/.../ Abc.exe &nbsp;-id &nbsp;3212 ',9); &nbsp;其中 -id 3212 是使用者输入的临时参数! &nbsp;另外还有一个小问题,怎样改变 MessageDlg 里面按钮的 caption? (100分)<br />另外还有一个小问题,怎样改变 MessageDlg 里面按钮的 caption?<br>例如将[mbYesNoCancel] 生成的caption改成: &nbsp; 是 &nbsp;不是 &nbsp;取消 &nbsp; ~<br>在线等待!<br>
 
参数用字符串搞定了<br>messagedlg 想要改标题只有delphi修改几个pas了<br>建议用messagebox
 
&gt;其中 -id 3212 是使用者输入的临时参数!<br>winexec('C;/.../ Abc.exe -id '+参数,9);<br>&gt;怎样改变 MessageDlg 里面按钮的 caption<br>改不了,:-)
 
用钩子可以改,但那样麻烦。<br>还是用 Application.MessageBox<br>或 windows.MessageBox
 
1.<br>&nbsp; var<br>&nbsp; &nbsp; cmdstr, parastr: string;<br>&nbsp; begin<br>&nbsp; &nbsp; cmdstr := 'Abc.exe';<br>&nbsp; &nbsp; parastr := ' -id 3212'; &nbsp;//can be changed<br>&nbsp; &nbsp; cmdstr := cmdstr + parastr;<br>&nbsp; &nbsp; WinExec(pchar(cmdstr),SW_HIDE);<br>&nbsp; end;<br>2.<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; MsgDialog: TForm;<br>&nbsp; pt: TPoint;<br>&nbsp; btns: array[0..2] of TButton;<br>&nbsp; c: integer;<br>begin<br>&nbsp; MsgDialog := CreateMessageDialog('Hi', mtInformation, [mbYes,mbYesToAll, mbNo]);<br>&nbsp; c := MsgDialog.ControlCount;<br><br>&nbsp; btns[0] := TButton(MsgDialog.Controls[c-1]);<br>&nbsp; btns[1] := TButton(MsgDialog.Controls[c-2]);<br>&nbsp; btns[2] := TButton(MsgDialog.Controls[c-3]);<br><br>&nbsp; pt := Point(btns[0].Left,btns[0].Top);<br><br>&nbsp; btns[0].SetBounds(btns[1].Left, btns[1].Top, btns[0].Width,btns[0].Height);<br>&nbsp; btns[1].SetBounds(btns[2].Left, btns[2].Top, btns[1].Width,btns[1].Height);<br>&nbsp; btns[2].SetBounds(pt.X, pt.Y, btns[2].Width, btns[2].Height);<br>&nbsp; btns[0].Caption := '我是第一个';<br>&nbsp; btns[1].Caption := '我是第二个';<br>&nbsp; btns[2].Caption := '我是第三个';<br>&nbsp; MsgDialog.Caption := '我是标题';<br>&nbsp; MsgDialog.ShowModal;<br>end;
 
messagebox 这么好不用,非要用一沓代码干什么<br>
 
各位谢谢了。。不过我怎么看不到问题的答案,也没有收到邮件??:-) <br>请高手指点。。
 
去这里看看<br>http://www.delphibbs.com/delphibbs/dispq.asp?lid=781783
 
麻烦各位大侠将答案给我发道: haigxj@hotmail.com<br>好吗? 在163我实在是收不到各位的答复。。麻烦了
 
麻烦各位大侠将答案给我发道: haigxj@hotmail.com<br>好吗? 在163我实在是收不到各位的答复。。麻烦了
 
麻烦各位大侠将答案给我发道: haigxj@hotmail.com<br>好吗? 在163我实在是收不到各位的答复。。麻烦了
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部