
22.05.2011, 14:53
|
 |
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;
__________________
Пишу программы за еду.
__________________
|