Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

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: А с чуством умора у меня нормально ;)


 
esVer ©   (2004-02-15 21:48) [8]


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


Спасибо.


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


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


 
DuchmanSoft ©   (2004-03-15 19:01) [9]

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


 
DuchmanSoft ©   (2004-03-15 19:05) [10]

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



Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.104 c
3-1079519664
sashag
2004-03-17 13:34
2004.04.11
IntToStr ???


7-1079601806
Ангел
2004-03-18 12:23
2004.04.11
Нужна помощь по работе с ККМ из Delphi


7-1076166231
gid
2004-02-07 18:03
2004.04.11
Как высвободить неиспользуемую оперативу?


1-1079860877
Melnicov Ivan
2004-03-21 12:21
2004.04.11
Как пользоваться несколькими формами?


7-1079680526
Артур
2004-03-19 10:15
2004.04.11
Аутентификация в Windows.