Avatar billede nykobingpc Nybegynder
18. december 2014 - 14:10 Der er 9 kommentarer

Start af Iexplore og lukke den efter en pause

Hejsa

Jeg har fået til opgave at skulle åbne Internet explorer med en fast hjemmeside, lade den genstarte efter 10 min. Og sådan skal det foregå hele tiden resten af dagen.

Er der nogen der kan komme med lidt hjælp :-)

Mvh
Peter
Avatar billede kroning Nybegynder
18. december 2014 - 17:15 #1
Skal det lige være IE der åbnes, hvad med at åbne siden i en TWebBrowser? Det vil være meget let.
Avatar billede stone Forsker
18. december 2014 - 18:39 #2
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;
Avatar billede kroning Nybegynder
18. december 2014 - 18:52 #3
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);
Avatar billede stone Forsker
18. december 2014 - 19:24 #4
ok kroning....

Det var cut and paste fra gemmerne "S"
Avatar billede stone Forsker
18. december 2014 - 20:53 #5
kroning

Som en side bemærkning så åbner den kun den aktuelle standard browser og og ikke IE som spørgsmålet gik på.
Avatar billede nykobingpc Nybegynder
05. januar 2015 - 13:34 #6
Det er meget fint med kodningen, har testen den. Men hvordan får jeg lukket IE, da jeg ser intet ske efter åbningen.
Avatar billede stone Forsker
05. januar 2015 - 17:15 #7
Det har jeg ikke et bud på men måske Kroning har?
Avatar billede stone Forsker
05. januar 2015 - 17:22 #8
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.
Avatar billede stone Forsker
05. januar 2015 - 17:30 #9
har testen den virker....
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester