Показать сообщение отдельно
  #2  
Старый 22.05.2011, 14:53
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
var
  h: THandle;
  wp: WINDOWPLACEMENT;
begin
  // перед запуском программы запустите "Блокнот" notepad.exe
  h:=FindWindow('Notepad', nil);
  if h<>0 then
  begin
    Caption:=IntToStr(h);
    wp.length:=SizeOf(WINDOWPLACEMENT);
    GetWindowPlacement(h, @wp);
    wp.rcNormalPosition.Right:=wp.rcNormalPosition.Left+Screen.Width div 2;
    wp.rcNormalPosition.Bottom:=wp.rcNormalPosition.Top+Screen.Height div 2;
    SetWindowPlacement(h, @wp);
  end;
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием