Start af Iexplore og lukke den efter en pause

Skal det lige være IE der åbnes, hvad med at åbne siden i en TWebBrowser? Det vil være meget let.

Her lidt hjælp så kan du nok selv finde ud af resten med en Ttimer.

uses

Shellapi,Registry

***************************************
procedure OpenURL(Url: string);
var
  ts: string;
begin
  with TRegistry.Create do
    try
      rootkey := HKEY_CLASSES_ROOT;
      OpenKey('\htmlfile\shell\open\command', False);
      try
        ts := ReadString('');
      except
        ts := '';
      end;
      CloseKey;
    finally
      Free;
    end;
  if ts = '' then Exit;
  ts := Copy(ts, Pos('"', ts) + 1, Length(ts));
  ts := Copy(ts, 1, Pos('"', ts) - 1);
  ShellExecute(0, 'open', PChar(ts), PChar(url), nil, SW_SHOW);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenURL('web adress');
end;

stone> Du mangler lige noget kode det lukker IE inden en ny åbnes. På min Win 8 åbnes et nyt vindue hver gang OpenURL kaldes.

Desuden kan jeg heller ikke se formålet med OpenURL proceduren, man kan vel bare kalde ShellExecute således ?

ShellExecute(0, 'open', PChar('http:\\www.google.dk'), '', nil, SW_SHOW);

ok kroning....

Det var cut and paste fra gemmerne "S"

kroning

Som en side bemærkning så åbner den kun den aktuelle standard browser og og ikke IE som spørgsmålet gik på.

Det er meget fint med kodningen, har testen den. Men hvordan får jeg lukket IE, da jeg ser intet ske efter åbningen.

Det har jeg ikke et bud på men måske Kroning har?

Hov her en gammel en herfra....

uses
Tlhelp32

function KillTask(ExeFileName: string): Integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(
                        OpenProcess(PROCESS_TERMINATE,
                                    BOOL(0),
                                    FProcessEntry32.th32ProcessID),
                                    0));
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  KillTask('IEXPLORE.EXE');
end.

//aner ikke om den funker i dag

du kan smide den her ind i en timer så du kan styre hvornår den skal lukke

procedure TForm1.Button1Click(Sender: TObject);
begin
  KillTask('IEXPLORE.EXE');
end.

har testen den virker....