相关疑难解决方法(0)

如何从一个Delphi程序实例发送字符串到另一个实例?

从我的程序的一个实例发送字符串到我的程序的另一个实例的最佳和最简单的方法是什么?接收程序必须使用接收的字符串作为参数来执行过程.

我开始阅读DDE,但我感到困惑.我还有其他选择,实现这个的最简单方法是什么?

delphi message-passing dde

18
推荐指数
4
解决办法
2万
查看次数

如何shell到另一个应用程序并让它以delphi形式出现

在Delphi中,我使用ShellExecute多年来启动(并可选择等待)其他应用程序.现在,我需要在我的一个Delphi应用程序表单中显示其中一个应用程序.我已经尝试了下面的代码作为一个简单的测试来打开记事本(它确实如此)并在我的表单上显示PAnel1中的结果(它没有).有些人可以让我走上正轨吗?谢谢

var
  Rec          : TShellExecuteInfo;
  wnd : HWnd;
const
  AVerb = 'open';
  AParams = '';
  AFileName = 'Notepad.exe';
  ADir = '';
begin
  FillChar(Rec, SizeOf(Rec), #0);

  Rec.cbSize       := SizeOf(Rec);
  Rec.fMask        := SEE_MASK_NOCLOSEPROCESS;
  Rec.lpVerb       := PChar( AVerb );
  Rec.lpFile       := PChar( AfileName );
  Rec.lpParameters := PChar( AParams );
  Rec.lpDirectory  := PChar( Adir );
  Rec.nShow        := sw_Show;

  ShellExecuteEx(@Rec);

  wnd := Windows.FindWindow( 'Notepad', nil );
  Windows.SetParent( Wnd, PAnel1.Handle );

end;
Run Code Online (Sandbox Code Playgroud)

delphi shellexecute setparent

11
推荐指数
1
解决办法
1万
查看次数

标签 统计

delphi ×2

dde ×1

message-passing ×1

setparent ×1

shellexecute ×1