program til at åbne htm side?

Hvis du har en TWebBrowser (standard komponent siden ver. 4 (tror jeg)), så smid denne på formen. Du kan åbne en web-side således:

WebBrowser1.Navigate('http://www.google.com');

Uses ShellApi;

ShellExecute(Handle,'open',PChar('c:\1.htm'),pchar(''),pchar(''),SW_SHOWNORMAL);

eksempel på screensaver:

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TMainForm = class(TForm)
    Image: TImage;
    Timer: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm          : TMainForm;
  mousecount        : integer;
  hProgman          : hwnd;

implementation

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  mousecount := 10;
  Randomize;
  hProgman := FindWindow('Shell_TrayWnd', nil);
  ShowWindow(hProgman, SW_HIDE);

  MainForm.Left := 0;
  MainForm.Top := 0;
  MainForm.Width := screen.Width;
  MainForm.Height := screen.Height;
end;

procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Close;
end;

procedure TMainForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  dec(mousecount);
  if mousecount < 0 then
    Close;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  ShowWindow(hProgman, SW_SHOWNORMAL);
end;

end.

det du så endvidere gør er at smide en TwebBrowser component som ligger under Internet ind.
Så siger du bare webbrowser1.navigate(extractfilepath(application.exename)+'dinhtmlfil.htm');

dkn ... Din løsning lyder som den mest rigtige....... tror jeg

Altså jeg vil have en screensaver som efter det antal minutter der er stilt i windows, åbner en htm side i FULL screen, og når man så bevæger musen så lukker det ned.. Ligesom en alm. pauseskærm..

Kunne du ikke tænke dig at lave det som en delphi fil med alt incl. ? Da jeg er helt ny til delphi og ikke ved noget om det...

Jeg har Delphi 7.0

ok, kom med mail, så sender jeg demo dertil når jeg lige har lavet den...

cyfer@adslhome.dk

færdig demo afsendt, hvis det virker kan du jo poste koden her...

kan man ikke gøre sådan at man ikke kan scrolle ??

jo du tilføjer bare den her under message event:

  if Msg.message = WM_MOUSEWHEEL then
    Close;

nej tror du misforstod mig...
Jeg vil fjerne scrolleren ude til højre :)

gør som gjorde i html siden scroll="no"

hmm... når jeg lægger screensaver.scr  ind i system32, og vælger den inde under screensavers og sætter den til at udløse efter 1 min så bliver den ikke udløst...

Jeg har winxp.. Hvad er der galt med den?

har du højre klikket og valgt installeret?

Det virker fint for mig.

ah ok.. så virkede det.. wierd... Jeg havde bare lagt den ind i system32 .. ikk valgt install.. thx !