Explorer / Internet Explorer

[Evian]

Hallo Zusammen,

ich habe eine kleine Benutzeroberfläche für das Multimedia Center in dem ich arbeite geschrieben, die soweit auch ganz gut funktioniert. Es wird z.B. überprüft, ob ein Explorerfenster geöffnet ist und wenn, dann wird es gleich wieder geschlossen. So will ich unter win98, ohne großen Aufwand verhindern, dass jemand am System rumspielt. Die Leute sollen aber den Internet Explorer benutzen können... soweit auch kein Problem, denn die klasse des IE ist 'IEFrame' und die des Explorers ist 'ExploreWClass' bzw.
'CabinetWClass' und so schließe ich einfach immer nur den Explorer, wenn er halt geöffnet wird.

Nun kommt mein Problem, wenn ich z.B. in den Internet Explorer 'c:' eingebe, dann wird der quasi zum Explorer, behält aber die Klasse des Internet Explorers. Nun habe ich mir gedacht, da sich auf jedem Explorer ein 'SysListView32' befindet, kann ich darüber rausfinden, ob jemand den IE zum navigieren im System benutzt.

Aber leider fehlt mir da die nötige Kenntnis...,
weiß jemand, wie ich den IE überprüfe ob er ein 'SysListView32' in sich hat?!

MFG

Evian

[Christian Seehase]

Moin Evian,

such' hier mal nach EnumWindows bzw. EnumChildWindows

Ein Programm, dass solche Scherze veranstaltet, wie es das Deine tun soll, flöge allerdings bei mir sofort wieder runter. :stupid:

[Luckie]

Dein Rechner wird wahrscheinlich auch nicht an einer öffentlichen Bushaltestelle stehen. ;)

[Evian]

Zitat:

Zitat von Christian Seehase

Moin Evian,

such' hier mal nach EnumWindows bzw. EnumChildWindows

Ein Programm, dass solche Scherze veranstaltet, wie es das Deine tun soll, flöge allerdings bei mir sofort wieder runter. :stupid:

Ja Danke, ich werds mir mal anschauen.

Zitat:

Zitat von Christian Seehase

Ein Programm, dass solche Scherze veranstaltet, wie es das Deine tun soll, flöge allerdings bei mir sofort wieder runter. :stupid:

Das Multimedia Center liegt im Plattengetto von Berlin und hier sind des Öfteren ein paar Gestalten, die aus Spaß einfach mal im Windows Ordner rumlöschen. Da kommt man mit der Weile schon auf ein paar krassere Ideen. Gut wir haben zwar ein Image-Tool, mit dem wir einen "Quasi-Urzustand" wiederherstellen können, aber das ist immer Mehraufwand für den Admin. Zudem haben wir windows98 und trotz dem wir die Rechner mit TweakUI und anderen Möglichkeiten zugenäht haben, ist das System immer noch löchriger als ein Schweizer Käse.
Meiner Meinung nach ist die Idee, den Explorer zu verbieten, zumindest für diese sEinsatzgebiet gar nicht so schlecht, zumal wir sowieso eine Benutzeroberfläche haben.

[Reddog]

Ich hab mir mal zu diesem Thema Gedanken gemacht und mal eine Funktion geschrieben. Vielleicht ist sie sogar nützlich:

Delphi-Quellcode:

function SearchSysListView(HWND: THandle): THandle;
var
  return: THandle;
  ClassName: string;
  count: integer;
const
  MaxClassLength = 256;
begin
  Result:= 0;

  // Die Klasse des Fensters wird ermittelt
  SetLength(ClassName, MaxClassLength);
  count:= GetClassName(HWND, PChar(ClassName), MaxClassLength);
  If count = 0 then
    RaiseLastOSError;
  SetLength(ClassName, count);

  // Falls das Fenster schon die Klasse besitzt wird das Handle zurückgegeben
  If ClassName = 'SysListView32' then begin
    Result:= HWND;
    Exit;
  end;

  // wenn die Klasse nicht SysListView32 ist dann folgen rekursive Aufrufe
  // der Funktion mit den Handles aller Kinder des Fensters
  return:=GetTopWindow(HWND);
  If return <> 0 then begin
    while (return <> 0) and (Result = 0) do begin
      Result:= SearchSysListView(return);
      return:= GetNextWindow(return, GW_HWNDNEXT);
    end;
  end;
end;

Sie macht alle Kinder des Fensters mit dem angegebenem Handle durch nach einem Fenster mit der Klasse "SysListView32". Wenn sie es findet, dann gibt die Funktion das Handle zurück, andernfalls gibt sie 0 zurück.
Wenn der Code schreckliche Fehler enthält, dann bitte nicht böse sein, ich bin noch Anfänger :oops:

Ciao, Reddog.

[Evian]

Wow Super, Danke!

Also ich habs jetzt noch nicht getestet, aber es sieht sehr gut aus, ich denke wenn es noch Fehlerchen gibt, dann werde ich sie selber hinbekommen, aber echt klasse!

Da nehm ich den Code von Dir "Anfänger"(glaube Du hast aber das falsche Wort gewählt) 1000x mal lieber, als irgendwo im Internet was "Besseres" zu finden.

Wenns funzt, dann sag ich nochmal bescheid!

[Die Muhkuh]

Hi Evian,


und was ist wenn jemand den Arbeitsplatz öffnet?

[memphis]

nur auf ein SysListView32 zu überprüfen reicht meiner Meinung nicht aus, denn der Benutzer kann immer noch Dateien direkt über die Adressleiste starten. Auch wenn er nicht die kompletten Pfadangaben weiss, kann er mit Hilfe der Autovervollständigung durch die Verzeichnisse navigieren.

MfG

Luki

[alcaeus]

Zitat:

Zitat von "Evian

hier sind des Öfteren ein paar Gestalten, die aus Spaß einfach mal im Windows Ordner rumlöschen.

Ich glaube das beseitigt das problem von Memphis, aber sicherheitshalber würde ich auch das "Ausführen" im Startmenü unterbinden.

Greetz
alcaeus

[Evian]

mh... stimmt... :roll:

naja also der Explorer, sofern er ein SysListView32 enthält, wird geschlossen... aber der Zugriff auf Dateien ist damitt nicht unterbunden.

Also ich bin für alle Ideen offen, aber glaube fast langsam... dass es so nicht 100 Pro zu lösen ist.

*schnief*

Evian

---Edit----

Zitat:

Zitat von alcaeus

Ich glaube das beseitigt das problem von Memphis, aber sicherheitshalber würde ich auch das "Ausführen" im Startmenü unterbinden.

Greetz
alcaeus

Also das Startmenü kann gar nicht aufgerufen werden, Windows Tasten und Shortcuts sind gesperrt... und letztendlich ist sogar der gesammte Desktop + Taskbar gehidet und unenabled.

Aber was meinst Du mit "das problem von Memphis"?
---Edit----

[ChrisM]

Zitat:

Zitat von Spider

Hi Evian,


und was ist wenn jemand den Arbeitsplatz öffnet?

Was soll dann sein? Der Arbeitsplatz ist doch ein ganz normales Explorer-Fenster mit deaktivierter Seitenleiste.

[alcaeus]

Zitat:

Zitat von Evian

Also ich bin für alle Ideen offen, aber glaube fast langsam... dass es so nicht 100 Pro zu lösen ist.

Doch, ist es. Über die Ausführen-Box können Benutzer keine Dateien löschen, sie können allerdings mit dem Editor eine Batchdatei irgendwo erstellen und diese Ausführen. Wenn du die WindowClass und den WindowTitle der Ausführen-Box kennst, dann kannst du diese ja einfach schließen, sobald sie geöffnet wird.
Weiters könntest du auch nur die Schreibrechte auf den Windows-Ordner entfernen, aber ich weiß nicht inwiefern dies unter Win98 möglich ist...

Greetz
alcaeus

[Kernel32.DLL]

Hmm...

Es ist sicher eine Frage des Geldes, aber für öffentliche Einrichtungen würde ich immer einen PC-Wächter auf Hardwarebasis empfehlen

[Evian]

naja ich werd noch ein bissel rumprobieren und dann Posten, wenn ich weitergekommen bin.

Auf jeden Fall Danke, für die Hilfe @all.

[Reddog]

Ich hätte da eine Frage dazu:

Wie schließt du eigentlich die Fenster? Bei mir klappt es nähmlich weder mit DestroyWindow noch mit SendMessage(HWND, WM_DESTROY, 0, 0). :(

Reddog

EDIT: OK, hat sich erledigt, klappt wunderbar mit PostMessage(HWND, WM_CLOSE, 0, 0). :)

[memphis]

Ich wollte damit eigentlich nur sagen, dass man durch die Adressleiste noch bspw. auf die cmd.exe, also Dos-Box zugreifen kann, und einem somit wieder alle Toffen stehen.

Man könnte auch dieses Fenster wieder schließen...

MfG
Luki

[Evian]

Ok, funzt eigendlich ganz gut und verbraucht weit weniger Ressourcen, als ich angenommen hätte... also läuft auf nem Pentium II 266, ohne, dass man irgendwas merkt.

Um zu überprüfen ob der IE zum Browsen im System genutzt wird, benutze ich in etwa volgenden Code:

Code:

Procedure CloseAllIE2Sys;
VAR
HWND1, HWND2 : THandle;
begin
while FindWindow('IEFrame',nil)<>0 do
  BEGIN
   HWND1 := FindWindow('IEFrame',nil);
   HWND2 := HWND1;
   IF SearchSysListView(HWND1) <> 0 THEN
   SendMessage(HWND2,WM_Syscommand,SC_Close,0);
  END;
end;

function Tform1.SearchSysListView(HWND : THandle): THandle;
var
  return: THandle;
  ClassName: string;
  count: integer;
const
  MaxClassLength = 256;
begin
  Result:= 0;
  application.ProcessMessages;

  SetLength(ClassName, MaxClassLength);
  count:= GetClassName(HWND, PChar(ClassName), MaxClassLength);
  If count = 0 then
  Exit;
  SetLength(ClassName, count);

  If ClassName = 'SysListView32' then begin
    Result:= HWND;
    Exit;
  end;
  return:=GetTopWindow(HWND);
  If return <> 0 then begin
    while (return <> 0) and (Result = 0) do begin
      Result:= SearchSysListView(return);
      return:= GetNextWindow(return, GW_HWNDNEXT);
    end;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 CloseAllIE2Sys;
end;

Um andere Programme zu beenden, die die Benutzer nicht nutzen können sollen, nehm ich folgenden Code, wobei für Klassenname natürlich der entsprechende Wert für das Programm eingegeben werden muss:

Code:

while FindWindow('Klassenname',nil)<>0 do
BEGIN
    SendMessage(FindWindow('Klassenname',nil),WM_Syscommand,SC_Close,0);
    Application.ProcessMessages;
END;

Um den Klassenname rauszubekommen, eignet sich das Freeware Programm X-Spy ausgezeichnet.
Man kann es bei motzi.fs-tools.de downloaden.

Also großes Danke noch mal an Reddog, der die Arbeit gemacht hat, die eigendlich meine Aufgabe gewesen wäre und an alle anderen, die mir nen Tip gegeben haben natürlich auch.

:dp:

MFG

Evian