Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Explorer или как?

esVer © (2004-02-14 19:28:00)
Есть ли возможность определить используется в системе Explorer или какой либо его "заменитель" типа Litestep и иже с ними...
Спасибо.

DuchmanSoft (2004-03-15 19:05:00) [1]
Забыл добавит работа проверялась только на Win2k, но по идее должно и под WinXP

DuchmanSoft (2004-03-15 19:01:00) [2]
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

esVer (2004-02-15 21:48:00) [3]

> DVM © (15.02.04 13:17) [6]

Спасибо.

> Rouse_ © (15.02.04 14:03) [7]

Именно это я и имел в виду :)

Rouse_ (2004-02-15 14:03:00) [4]
> [3] esVer © (14.02.04 22:54)
А если посмотреть > [6] DVM © (15.02.04 13:17)и подумать?

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

DVM (2004-02-15 13:17:00) [5]
для 98 в system.ini
для nt/2000/xp в реестре

Alexander666 (2004-02-15 12:47:00) [6]
Упс, извиняюсь за свой ответ. Я думал, "заменить" эксплорер.

ZZ (2004-02-14 23:09:00) [7]
Удалено модератором
Примечание: Offtopic

esVer (2004-02-14 22:54:00) [8]

> Alexander666 ©

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

> Rouse_ ©

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

Alexander666 (2004-02-14 22:07:00) [9]
Одна версия этого сабжа предлагается в книге Пачеко, во втором томе.

Rouse_ (2004-02-14 20:19:00) [10]
Смотря какая система...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »