| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

работа с excel

Страницы:   < 1 2 >

Delphist2 ©   (2010-06-09 09:32:00) 

Можно ли редактировать уже открытой книгой? И как определить, что книга открыта?

---

Медвежонок Пятачок   (2010-06-09 10:45:00) [21]

если редактировать нельзя, то ты об этом очень быстро узнаешь.
без всяких проверок.

---

Delphist2   (2010-06-09 09:43:00) [22]

Есть например такой код, но он не видит книги, открытые из с пом. COM или открытые по сети.
function tform1.ExcelFileOpen(NameFile:string):boolean; {без расширения}
VAR
Wnd : hWnd;  
buff: ARRAY [0..127] OF Char;
begin
result:=false;                  {<<<<<<<<<<<}
Wnd := GetWindow(Handle, gw_HWndFirst);
WHILE Wnd <> 0 DO
BEGIN {Не показываем:}
IF (Wnd <> Application.Handle) AND {-Собственное окно}
IsWindowVisible(Wnd) AND {-Невидимые окна}
(GetWindow(Wnd, gw_Owner) = 0) AND {-Дочернии окна}
(GetWindowText(Wnd, buff, sizeof(buff)) <> 0) {-Окна без заголовков}
THEN BEGIN
GetWindowText(Wnd, buff, sizeof(buff));
if StrPas(buff)='Microsoft Excel - '+NameFile then result:=true;
END;
Wnd := GetWindow(Wnd, gw_hWndNext);
END;
end;

---

Страницы:   < 1 2 >

Наверх