Affiliate program on Delphi 7 form

First we analyze errors in the code of the author of the question:

 ShellExecute(Handle,'open','C:\Windows\system32\calc.exe',nil,nil,SW_SHOW); 

Well, you run the application, but after that you will have to wrestle with how to find the window handle (HWND), and you do not even know the pid process.

 sleep(100); 

Waiting for the calculator to start? And if the computer is terribly loaded, and the calculator will open not 0.1 seconds, but longer? Especially now I launched a calculator on a loaded car account, it turned out more than 4 seconds :)

 hw:=FindWindow(nil,''); 

Are you trying to find HWND by specifying an empty string as a parameter? But this is the title of the window, my calculator has in its capacity a proud string "Calculator".

 SetParent(Form1); 

And this is what? No, the idea is clear, but here is an attempt to implement ...

What is needed to complete your task:

1. you must start the process and get its ProcessID, for example, through CreateProcess
2. Now you need to know the HWND value of your calculator. Yes, it can be found through FindWindow, but what if the user had already started a calculator?
3. But now you can use it, but not SetParent (Form1), but Winapi.Windows.SetParent (winhandle, Handle)

The easiest way to place a call to an external application through a procedure is suddenly useful:

 procedure StartMyCommand(command:string); // command - наша командная строка, например, 'C:\Windows\system32\calc.exe' var isGood: LongBool; StartUpInfo: TStartUpInfo; ProcessInfo: TProcessInformation; cmd:PChar; begin cmd:=PChar(command); // превращаем командную строку в PChar FillChar(StartUpInfo, SizeOf(TStartUpInfo), 0); // подготавливаем переменные для запуска with StartUpInfo do begin cb := SizeOf(TStartUpInfo); dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK; wShowWindow := SW_SHOWNORMAL; end; isGood := CreateProcess(cmd, '', nil, nil, false, NORMAL_PRIORITY_CLASS, nil, nil, StartUpInfo, ProcessInfo); // выполняем запуск приложения if isGood then // проверка на успешный запуск with ProcessInfo do begin WaitForInputIdle(hProcess, INFINITE); // ждем завершения инициализации, вот так надо правильно, а не ваш Sleep(100) CloseHandle(hThread); // закрываем дескриптор процесса, он нам не нужен CloseHandle(hProcess); // закрываем дескриптор потока, тоже не нужен больше EnumWindows(@EnumWindowsProc, LPARAM(dwProcessID)); // запускаем перебор окон, близких к вершине просмотра, нам понадобится определить callback-фунцию EnumWindowsProc для сервисных функций end else begin // тут уж сами ошибки обрабатывайте end; end; 

We define a variable that will return the HWND of the window we need and the EnumWindowsProc function to catch it (remember that the definition of the variable and this function must be in the program text BEFORE our StartMyCommand procedure):

 var WinHandle: HWND; function EnumWindowsProc(hWnd:HWND; lPar:LPARAM):boolean; var bContinue:boolean; dwProcessID:integer; begin bContinue:=true; GetWindowThreadProcessId(hWnd, @dwProcessID); // перебираем процессы и, как только процессID совпадает с желаемым, определяем нужное нам окно if (dwProcessID = DWORD(lPar)) then begin bContinue := FALSE; WinHandle:=hWnd; end; Result:=bContinue; end; 

That's all. HWND we got, set the Parent , you can play MoveWindow with MoveWindow and SetWindowRgn , if necessary of course. But try to figure it out yourself, MSDN will help you.

PS Could nakosyachit something on the little things, because he wrote in his notebook, and not in the IDE.