Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.056 c
1-1082575028
ещё раз Я...
2004-04-21 23:17
2004.04.11
опять StringGrid и его события...


14-1082558213
KSergey
2004-04-21 18:36
2004.04.11
Вышла знаменитая "Inside for Microsoft Windows 2000"


14-1082286528
Мдя-ужж
2004-04-18 15:08
2004.04.11
96 кило игрулька , и нехилая ....


1-1080217675
NewDelphiUser
2004-03-25 15:27
2004.04.11
Отмена секунд в TDateTimePicker


3-1081839636
dmtr
2004-04-13 11:00
2004.04.11
Проблема использования ADO-компонентов в форме, помещенной в dll




   Наверх