как заставить чужой программы работат внутри своей формы)))
amamed_3071 © (2002-01-19 15:05:00)
выполните 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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
