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

Получить путь активного окна эксплорер а   Найти похожие ветки 

← →
WaS ©   (2004-10-28 13:36) [0]

Необходимо получить не заголовок активного окна (как спомощью GetWindowText, т.е. его Caption), а его реальный путь.

---

← →
BiN ©   (2004-10-28 14:22) [1]

чтайте доки. они рулез

проход по открытым окнам 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;

---

← →
WaS ©   (2004-10-28 14:58) [2]

To BiN

Ууухх.. Огромное спасибо, не знал что бы без тебя делать!!! Усе ОК после некоторой лоработки кода.

P.S. Где доки, то кстати читать???

;)

---

← →
WaS ©   (2004-10-28 14:58) [3]

To BiN

Ууухх.. Огромное спасибо, не знал что бы без тебя делал!!! Усе ОК после некоторой лоработки кода.

P.S. Где доки, то кстати читать???

;)

---

← →
WaS ©   (2004-10-28 14:58) [4]

To BiN

Ууухх.. Огромное спасибо, не знал что бы без тебя делал!!! Усе ОК после некоторой лоработки кода.

P.S. Где доки, то кстати читать???

;)

---

← →
WaS ©   (2004-10-28 14:59) [5]

To BiN

Ууухх.. Огромное спасибо, не знал что бы без тебя делал!!! Усе ОК после некоторой лоработки кода.

P.S. Где доки, то кстати читать???

;)

---

← →
BiN ©   (2004-10-28 15:14) [6]

Где доки, то кстати читать???

все там же: 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.as p

---

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

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



Память: 0.46 MB
Время: 0.026 c