[Metaphor]

Код:

var
  Form1: TForm1;
  StartupInfo: TStartupInfo;
  ProcessInformation: TProcessInformation;
  D:DWORD;
implementation


    procedure TForm1.Button1Click(Sender: TObject);
begin
    StartupInfo.dwFlags := STARTF_USESIZE;
    StartupInfo.dwXSize := 1000;
    CreateProcess(nil, 'C:\Program Files\Internet Explorer\iexplore.exe "D:\index.htm"',
                     nil, nil, False, 0, nil, nil, StartupInfo, ProcessInformation);
{$R *.dfm}



end;
end.

не задается размер, в чем ошибка?