Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Corba";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

ms word   Найти похожие ветки 

 
лесник ©   (2007-05-28 13:50) [0]

задача - собрать картинки в один вордовский файл, и исходные кртинки удалить. пишу:
W := CreateOleObject("Word.Application")
S := W.Selection.InlineShapes.AddPicture(FileName:=FName, LinkToFile:=False, SaveWithDocument:=True);
W.ActiveDocument.SaveAs(FileName:=FFileName, AddToRecentFiles:=True, LockComments:=False);
...
W.ActiveDocument.Close;
W.Quit(SaveChanges := false);
все, хорошо, картинки добавляются, фордовский файл создается. НО форд, пока не закроется держит файлы исходных картинок.
Вопрос - как понять что Ворд уже закрылся после вызова W.Quit(SaveChanges := false); ?


 
oxffff ©   (2007-05-28 14:23) [1]

IID__Application: TGUID = "{00020970-0000-0000-C000-000000000046}";

Посмотри в task Manager
что у тебя после
IApp.Quit(EmptyParam,EmptyParam,EmptyParam);


 
лесник ©   (2007-05-28 14:52) [2]

прога на дельфи 3, не совсем понял...
в ТаскМанагере Ворд висит какое-то время после W.Quit(SaveChanges := false); потом выгружается...



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

Форум: "Corba";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.087 c
15-1333730960
Дмитрий С
2012-04-06 20:49
2013.03.22
Очень сильно тупит delphiXE


1-1297807688
Германн
2011-02-16 01:08
2013.03.22
Отладка


15-1331384899
Дмитрий С
2012-03-10 17:08
2013.03.22
Блокировка файла.


15-1334867402
Юрий
2012-04-20 00:30
2013.03.22
С днем рождения ! 20 апреля 2012 пятница


15-1347564415
Guest
2012-09-13 23:26
2013.03.22
Где можно узнать количество АЛУ и физических регистров процессора





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский