![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Получить путь активного окна эксплорер'а [D7, Win2k, WinXP]
WaS © (2004-10-28 13:36:00)Необходимо получить не заголовок активного окна (как спомощью GetWindowText, т.е. его Caption), а его реальныйпуть.
BiN (2004-10-28 15:14:00) [1]Где доки, то кстати читать???
все там же: http://www.msdn.com
http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/reference/objects/internetexplorer.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/objects/shell/shell.asp
WaS (2004-10-28 14:59:00) [2]To BiN
Ууухх.. Огромное спасибо, не знал что бы без тебя делал!!! Усе ОК после некоторой лоработки кода.
P.S. Где доки, то кстати читать???
;)
WaS (2004-10-28 14:58:00) [3]To BiN
Ууухх.. Огромное спасибо, не знал что бы без тебя делать!!! Усе ОК после некоторой лоработки кода.
P.S. Где доки, то кстати читать???
;)
WaS (2004-10-28 14:58:00) [4]To BiN
Ууухх.. Огромное спасибо, не знал что бы без тебя делал!!! Усе ОК после некоторой лоработки кода.
P.S. Где доки, то кстати читать???
;)
WaS (2004-10-28 14:58:00) [5]To BiN
Ууухх.. Огромное спасибо, не знал что бы без тебя делал!!! Усе ОК после некоторой лоработки кода.
P.S. Где доки, то кстати читать???
;)
BiN (2004-10-28 14:22:00) [6]чтайте доки. они рулез
проход по открытым окнам Explorer-a:
var
ShellObj:Variant;
Wnds:Variant;
L, i:Integer;
IEObj:Variant;
begin
Memo1.Lines.Clear;
ShellObj:=CreateOleObject('Shell.Application');
Wnds:=ShellObj.Windows;
try
L:=Wnds.Count;
if L>0 then
for i:=0 to L-1 do
begin
IEObj:=Wnds.Item(i);
Memo1.Lines.Add(Format('%d. IE Window: %s :: %s', [i, IEObj.FullName, IEObj.LocationName, IEObj.LocationURL]));
IEObj:=Null;
end;
finally
Wnds:=Null;
ShellObj:=Null;
end;
end;