Привет всем.

Открываю процесс через CreateProcess, и надобно мне, чтобы окно его создавалось не где придётся, а там, где мне надо. В структуре типа TStartUpInfo полям dwX и dwY присваиваю некоторые значения. Но бестолку, блокнот, например, где был при прошлом ручном запуске, там и остался, при программном.

Procedure createpad;
var StInfo : TStartupInfo;
    SeAttr : TSecurityAttributes;
    ProcInfo : TProcessInformation;
    ProcHandle : THandle;
begin
  FillChar(StInfo,SizeOf(StInfo),0);
  StInfo.cb := SizeOf(StInfo);
  stInfo.dwFlags:=STARTF_USESHOWWINDOW;
  StInfo.wShowWindow:=SW_SHOWDEFAULT;
  stinfo.dwX:=1000;
  stinfo.dwY:=730;
  with SeAttr do begin
    nLength:=SizeOf(SeAttr);
    bInheritHandle:=true;
    lpSecurityDescriptor:=nil;
  end;
  if CreateProcess(nil,
  PChar('c:\windows\notepad.exe'),
  @SeAttr,@SeAttr,false,NORMAL_PRIORITY_CLASS,
  nil,
  PChar('C:\WINDOWS\'),
  StInfo, ProcInfo) then begin
    ProcHandle := ProcInfo.hProcess;
  end else raise Exception.Create('');
end;

И ещё вопрос, на эти поля, dwX и dwY (ну может не на эти, а на те, которые отвечают за координаты создания окна) наложены какие-либо ограничения? Например, эти координаты могут быть отрицательными (типа пол-окна за границей экрана)?
Та же история с размерами. Меняю dwXSize и dwYSize.

PS: разрешение экрана 1024-768.

Добавлено через 12 мин.


Мб из-за этого DEFAULT?

Во-первых:
MSDN->STARTUPINFO Structure
У тебя флага STARTF_USEPOSITION нет, насколько я вижу.

Ну, и во-вторых (оттуда же):
Ты уверен, что окно Notepad-а создается с CW_USEDEFAULT, чтоб у тебя было право его менять? Я - нет...

Ага, кажется, без него создаётся, с STARTF_USEPOSITION тоже не двигается. Так что, получается, без этого USEDEFAULT не получится ничего подобного сделать? WM_CREATE тоже перехватывать без толку будет?

Зачем тебе перехватывать WM_CREATE у стороннего приложения, если тебе после CreateProcess и так известен хендл окна приложения (не напрямую, но кто обещал, что будет легко)? Возьми и примени к нему MSDN -> MoveWindow

Вот так, например:

function myFunc(wnd:HWND; lParam: LPARAM): BOOL; stdcall;
begin
  MoveWindow(wnd, 20, 20, 400, 400, True); // Ну, забрось окно куда нужно
  result := False;
end;

...
  // здесь создаешь процесс

  WaitForInputIdle(ProcInfo.hProcess, INFINITE); // Ждем создания окна
  EnumThreadWindows(ProcInfo.dwThreadId, @myFunc, 0);

(только аккуратнее с таким способом - это далеко не для любого процесса, я воспользовался тем, что запуск Notepad-а создает только одно окно, принадлежащее единственному треду. С другими приложениями может быть не так просто). Чтоб не "мигало" - создай окно скрытым, а потом, после перемещения - "открой" его...

Спасибо, работает. Это то, что нужно