Как пользоваться функцией GetWindowplacement?

← →
Василий (2006-07-29 07:29) [0]

Доброго времени суток, Мастера.
Есть такой вопрос.
Мне нужно запустить внешнюю программу из моей. Скажем "Nc.exe". Но мне ее надо запустить в определенном месте. Нашел хелпе что для этого надо пользоваться функцией Getwindowplacement. Но инфо очень мало.
Покажите пожалуйста, если не трудно, код программки которая запустила бы Nc.exe в координатах его верхнего левого края окна в 100,100 на экране.

Заранее благодарен.

← →
PSPF2003 © (2006-07-29 07:49) [1]

MS SDK

← →
Василий (2006-07-30 12:49) [2]

PSPF2003 © (29.07.06 07:49) [1]

MS SDK

Прошу прощения, но не понял.
Может быть немного по подробнее.

← →
PSPF2003 © (2006-07-30 12:54) [3]

Пуск -> Все программы -> Borland Delphi 7 -> Help -> MS SDK Help Files -> Win32 SDK Reference

Там вся информация расписана самым подробным образом.

procedure TForm1.FormDblClick(Sender: TObject);
var
H: Cardinal;
R: TRect;
begin
Caption := "";
with TOpenDialog.Create(nil) do
try
if Execute and (WinExec(PChar(FileName), SW_SHOWDEFAULT) > 31) then
begin
Sleep(100);
H := FindWindow("ConsoleWindowClass", PChar(FileName));
if (H <> 0) and GetWindowRect(H, R) then
begin
OffsetRect(R, 100 - R.Left, 100 - R.Top);
if SetWindowPos(H, 0, R.Left, R.Top, R.Right - R.Left, R.Bottom - Top, 0)
and GetWindowRect(H, R) then
Caption := Format("%s: Left = %d, Top = %d, Width = %d, Height = %d",
[FileName, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top])
end
end
finally
Free
end
end;

Разберите этот пример, пользуясь советом [3] для изучения использованных в нем функций WinAPI - все станет понятно.

Как пользоваться функцией GetWindowplacement? Найти похожие ветки