как заставить чужой программы работат внутри своей формы)))

← →
amamed_3071 (2002-01-19 15:05) [0]

выполните Calc.exe b проверте)))
procedure TForm1.Button1Click(Sender: TObject);
Function SetProccesWindow(Wtitle:Pchar):Integer;
Var x:HWnd;
Begin
SetProccesWindow:=0;
x:=FindWindow(Nil,WTitle);
if x>0 then
Windows.SetParent(X,Handle)
else
SetProccesWindow:=-1;
End;
begin
SetProccesWindow("Calculator");
end;

← →
nil © (2002-01-19 20:01) [1]

Why don"t you use Delphi standards?

procedure TForm1.Button1Click(Sender: TObject); function SetProccesWindow(Wtitle:Pchar): THandle; begin Result := FindWindow(Nil,WTitle); if Result > 0 then Windows.SetParent( Result,Handle); end; var Parenth: THandle; begin Parenth := SetProccesWindow("Calculator"); end;

как заставить чужой программы работат внутри своей формы))) Найти похожие ветки