Archiv der Kategorie: Delphi

zweiter Internet Explorer mit Skype Seite beim Start vom IE

23. August 2008 @ 11:26

So, nun habe ich auf meinem Notebook mit Windows Vista Ultimate 64bit Skype installiert und bekam bei jedem Start des Internet Explorers zwei Explorerfenster angezeigt: Eins mit der normalen Startseite und ein weiteres mit einer Skype Seite auf der unten stand, dass diese seite nur einmal angezeigt wird: von wegen, diese 2. Seite öffnet sich immer beim Start des Internet Explorers.

Abhilfe schafft bei diesem Problem die Deaktivierung des Skype-Plugins im IE.

Im Internet Explorer unter: Extras -> Internetoptionen -> Programme -> Ad-Ons
dort das Ad-On “Skype ad-on (mastermind)” wählen und unten “deaktivierenW klicken. ->OK klicken

Hier ein paar Screenshots zur Verdeutlichung:

Fertig.

Delphi: Laufende Anwendung beenden (KillTask)

28. Februar 2008 @ 21:06

Diese Funktion beendet einen laufenden Prozess, der anhand des übergebenen Namens der EXE-Datei identifiziert wird und gibt TRUE zurück wenn erfolgreich. Wenn mehrere Prozesse laufen, die den gleichen EXE-Namen haben, dann wird nur der erste der gefunden wird beendet.

Da keine Abfrage kommt, empfehle ich dringend nur unkritische Prozesse auf diese Weise zu beenden – sonst droht Datenverlust.

 

uses TLHelp32;

function KillTask(const AExeName: string): boolean;
var
  p: TProcessEntry32;
  h: THandle;
begin
  Result := false;
  p.dwSize := SizeOf(p);
  h := CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
  try
    if Process32First(h, p) then
      repeat
        if AnsiLowerCase(p.szExeFile) = AnsiLowerCase(AExeName) then
          Result := TerminateProcess(OpenProcess(Process_Terminate,false, p.th32ProcessID), 0);
      until (not Process32Next(h, p)) or Result;
  finally
    CloseHandle(h);
  end;
end;

//Beispielaktion
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not KillTask('iexplore.exe') then
    Showmessage('Prozess konnte nicht beendet werden.');
end;