program

Nu er det her jo egentlig et forum til at få hjælp med udvikling, og ikke en chat, hehe. Men går på HTX, arbejder og nyder livet med kæresten. Så computeren står næsten og bliver støvet. Heeh.

Men skal du have en hånd? Skriv en adresse og en størrelse, så klarer jeg den.

Ja okay, nu nævnte du selv c++, er det programmerings sproget du ønsker at lave det i?

Hvis du ikke kan programmere i c++, så var c# eller delphi jo også en mulighed?

Du er jo først nød til at bestemme dig for et sprog før jeg kan hjælpe.

En anden måde at løse det på, som jeg har siddet og rodet lidt med, er at bruge ShellExecute/ShellExecuteEx til at starte Internet Explorer op med sitet.

Når du oprettet det, skal du så kunne finde det handle IE har fået og sende en besked til IE om at det skal ændre størrelse, ex med MoveWindow.

Desværre vil det jeg har lavet ikke finde noget handle for IE

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
  MyHandle: HWND;
  WinRect: TRect;
begin
  // Husk at tilføje ShellApi under uses, for at kunne bruge ShellExecute
  ShellExecute(Handle,'open', 'www.udvikleren.dk', nil, nil, SW_SHOWNORMAL) ;
  MyHandle := FindWindow('IEFrame', nil);
  if MyHandle <> 0 then
  begin
    // Minimer program:
    //  SendMessage(MyHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
    // Luk program:
    //  SendMessage(MyHandle, WM_SYSCOMMAND, SC_CLOSE, 0);
    // Ændre størrelse på vindue:
    GetWindowRect(MyHandle, WinRect);
    MoveWindow(MyHandle, WinRect.Left, WinRect.Top, 800, 600, True);
 end;
end;

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
  MyHandle: HWND;
  WinRect: TRect;
begin
  // Husk at tilføje ShellApi under uses, for at kunne bruge ShellExecute
  ShellExecute(Handle,'open', 'iexplore.exe', 'www.udvikleren.dk', nil, SW_SHOWNORMAL);
  // For lige at vente på at IE starter, sætter vi en sleep ind
  sleep(255);
  // Finder det sidst aktive IE vindue, vores nye, da det jo lige er blevet lavet
  MyHandle := FindWindow('IEFrame', nil);
  // Hvis den finder et IE vindue udfører den den følgende kode
  if MyHandle <> 0 then
  begin
    // Minimer program:
    //  SendMessage(MyHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
    // Luk program:
    //  SendMessage(MyHandle, WM_SYSCOMMAND, SC_CLOSE, 0);
    // Ændre størrelse på vindue:
    GetWindowRect(MyHandle, WinRect);
    MoveWindow(MyHandle, WinRect.Left, WinRect.Top, 800, 600, True);
 end;
end;