Explorer или как?

← →
esVer © (2004-02-14 19:28) [0]

Есть ли возможность определить используется в системе Explorer или какой либо его "заменитель" типа Litestep и иже с ними...
Спасибо.

← →
Rouse_ © (2004-02-14 20:19) [1]

Смотря какая система...

← →
Alexander666 © (2004-02-14 22:07) [2]

Одна версия этого сабжа предлагается в книге Пачеко, во втором томе.

← →
esVer © (2004-02-14 22:54) [3]

> Alexander666 ©

Спасибо, сейчас гляну.

> Rouse_ ©

Я рад что у вас есть если не знание, то хотя бы чувство юмора...

← →
ZZ © (2004-02-14 23:09) [4]

Удалено модератором
Примечание: Offtopic

← →
Alexander666 © (2004-02-15 12:47) [5]

Упс, извиняюсь за свой ответ. Я думал, "заменить" эксплорер.

← →
DVM © (2004-02-15 13:17) [6]

для 98 в system.ini
для nt/2000/xp в реестре

← →
Rouse_ © (2004-02-15 14:03) [7]

> [3] esVer © (14.02.04 22:54)
А если посмотреть > [6] DVM © (15.02.04 13:17) и подумать?

PS: А с чуством умора у меня нормально ;)

procedure TForm1.Button1Click(Sender: TObject);
Var
Sh: TRegistry;
Shell_ : String;
I : Integer;
begin
Sh := TRegistry.Create(KEY_ALL_ACCESS);
Sh.RootKey := HKEY_LOCAL_MACHINE;
Sh.OpenKey("\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", True);
Shell_:=Sh.ReadString("Shell");
Sh.CloseKey;
Sh.Free;
For I:=1 to Length(Shell_) do
Shell_[I]:=UpCase(Shell_[I]);
If Shell_="EXPLORER.EXE" then (значит EXPLORER.EXE)
Else (значит не EXPLORER.EXE);
end;

UpCase Требуется потому что в некоторых случаях результат может быть explorer.exe, а в других Explorer.exe

P.S. В Uses нужно добавить Registry

Забыл добавит работа проверялась только на Win2k, но по идее должно и под WinXP

Explorer или как? Найти похожие ветки