Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Вниз

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


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;




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.032 c
1-46334           Mikel Fryg            2002-04-02 22:25  2002.04.15  
Как сделать форму активной?


1-46385           MIg                   2002-03-29 15:33  2002.04.15  
Как поженить фортрановскую dll( с параметрами) и Delphi? ......


3-46226           KIR                   2002-03-21 11:58  2002.04.15  
Закрыть базу Paradox паролем


1-46339           Andrey__              2002-04-03 21:08  2002.04.15  
Delphi 5 --> Delphi 6. Проблема...


3-46268           Sergey_R              2002-03-23 19:13  2002.04.15  
Вложенный подзапрос.