Форум: "WinAPI";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Вниз
Explorer или как? Найти похожие ветки
← →
esVer © (2004-02-14 19:28) [0]Есть ли возможность определить используется в системе Explorer или какой либо его "заменитель" типа Litestep и иже с ними...
Спасибо.
← →
esVer © (2004-02-14 19:28) [0]Есть ли возможность определить используется в системе Explorer или какой либо его "заменитель" типа Litestep и иже с ними...
Спасибо.
← →
Rouse_ © (2004-02-14 20:19) [1]Смотря какая система...
← →
Rouse_ © (2004-02-14 20:19) [1]Смотря какая система...
← →
Alexander666 © (2004-02-14 22:07) [2]Одна версия этого сабжа предлагается в книге Пачеко, во втором томе.
← →
Alexander666 © (2004-02-14 22:07) [2]Одна версия этого сабжа предлагается в книге Пачеко, во втором томе.
← →
esVer © (2004-02-14 22:54) [3]
> Alexander666 ©
Спасибо, сейчас гляну.
> Rouse_ ©
Я рад что у вас есть если не знание, то хотя бы чувство юмора...
← →
esVer © (2004-02-14 22:54) [3]
> Alexander666 ©
Спасибо, сейчас гляну.
> Rouse_ ©
Я рад что у вас есть если не знание, то хотя бы чувство юмора...
← →
ZZ © (2004-02-14 23:09) [4]Удалено модератором
Примечание: Offtopic
← →
ZZ © (2004-02-14 23:09) [4]Удалено модератором
Примечание: Offtopic
← →
Alexander666 © (2004-02-15 12:47) [5]Упс, извиняюсь за свой ответ. Я думал, "заменить" эксплорер.
← →
Alexander666 © (2004-02-15 12:47) [5]Упс, извиняюсь за свой ответ. Я думал, "заменить" эксплорер.
← →
DVM © (2004-02-15 13:17) [6]для 98 в system.ini
для nt/2000/xp в реестре
← →
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: А с чуством умора у меня нормально ;)
← →
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]
Именно это я и имел в виду :)
← →
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: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
← →
DuchmanSoft © (2004-03-15 19:05) [10]Забыл добавит работа проверялась только на Win2k, но по идее должно и под WinXP
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.039 c
