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

Вниз

Маша заболела ангиной!   Найти похожие ветки 

 
Arkan   (2002-11-06 15:32) [0]

Здравствуйте! Подскажите пожалуйста, как мне сделать следующее. Запускаю я блокнот, а потом мне надо передать в него(чтобы в текстовом поле появилось) строку "Маша заболела ангиной!". Подскажите, как?


 
Юрий Федоров   (2002-11-06 15:34) [1]

Самое простое - создать текстовый файл Temp папке со строкой,
и запустить блокнот с параметром <имя файл>


 
Юрий Федоров   (2002-11-06 15:50) [2]

Найди его Handle и отправь сообщение


 
Arkan   (2002-11-06 15:55) [3]

поподробнее не расскажите. если с кодом, так я вообще буду рад, т.к. начинающий...


 
Ru   (2002-11-06 15:56) [4]

findwindow - найти родительское окно
findwindowex - найти дочернее окно

Str:="Фигня всякая";
NHandle:=findwindow(nil,"notepad");
WHandle:=findwindowex(Nhandle,nil,"Memo",nil);
SendMessage(WHandle,WM_SETTEXT,Length(Str),integer(Str));

если ошибся то хэлп тебе в помощь Ж:)


 
Игорь Шевченко   (2002-11-06 15:59) [5]

Бедная Маша, то она туберкулезом болеет, то ангиной...
Жалко Машу...щас раплачусь...


 
Arkan   (2002-11-06 16:05) [6]

2Ru
Спасибо.
2Игорь Шевченко
Не волнуйся, она поправится...


 
TTCustomDelphiMaster   (2002-11-06 16:18) [7]


>
> Игорь Шевченко © (06.11.02 15:59)
> Бедная Маша, то она туберкулезом болеет, то ангиной...


Интересно, а она на ВИЧ проверялась?


 
Arkan   (2002-11-06 16:23) [8]

Да, и ещё вопросик: например, я переассациировал расширение *.xls на свою прогу. Теперь как мне сделать так, чтобы при открыти exel файла он запускал мою прогу, которая открывала бы уже Excel с этим файлом. ВСе. Может, я выразил сумбурно, но надеюсь, что меня поймут.


 
Skier   (2002-11-06 16:24) [9]

>Arkan
Запускай Exel сам
см. CreateOleObject(...)


 
Arkan   (2002-11-06 16:35) [10]

Возможно, я неясно выразился. Мне надо провести учёт запускаемых файлов. Я понимаю, что гораздо проще поставить ловушку, но мне надо именно так, через переассоциацию. Вопрос в том, как мне отловить имя и путь запускаемого файла, а потом запустить Exel с этими параметрами.


 
Arkan   (2002-11-06 16:36) [11]

Думик Дмитрий


 
Arkan   (2002-11-06 16:38) [12]

Возможно, я неясно выразился. Прога должна вести лог эксел файлов. Мне надо отловить имя и путь запускаемых эксел файлов, а потом запускать эксел с этими параметрами. Довольно просто сделать через ловушку, но мне надо именно так.


 
Arkan   (2002-11-06 16:39) [13]

сорри за спам. случайно


 
DieHard   (2002-11-06 16:41) [14]

см. ParamStr


 
KoluChi   (2002-11-06 16:45) [15]

После переассоциации твоя программа будет запускаться с параметрами. Смотри РaramStr(1) - это будет имя запускаемого файла. Затем запускай Excel.exe с этим же параметром.


 
Arkan   (2002-11-06 17:37) [16]

Возвращаясь к первому вопросу:
Str:="Фигня всякая";
NHandle:=findwindow(nil,"notepad");
WHandle:=findwindowex(Nhandle,NULL,"Memo",nil);
SendMessage(WHandle,WM_SETTEXT,Length(Str),integer(Str));
Выдает компилятор, что
Undeclared identifer "NULL"
Undeclared identifer "NULL"
Как мне их declared?


 
han_malign   (2002-11-06 17:42) [17]

nil, или 0, в зависимости от типа параметра (NULL - С-шный макрос)


 
atmospheric   (2002-11-06 18:26) [18]

Ну, а может - ты открываешь .xls пишешь логи(каунты), а потом делаешь из своей программы ShellExecute (пускаешь ексел со с параметром этого файла)...


 
Arkan   (2002-11-06 22:39) [19]

сорри, я опечатался,
вторая строка: Undeclared identifer WM_SETTEXT.


 
Alex4444444444   (2002-11-06 23:49) [20]

Ni hrena sebe opechatka!
uses Messages;



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

Форум: "Основная";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.007 c
14-59431
Карлсон
2002-10-30 20:20
2002.11.18
электроны....


1-59102
PETR2002
2002-11-07 23:05
2002.11.18
sendkeys


1-59225
Delphi Maniak
2002-11-06 17:19
2002.11.18
Ошибка...


14-59417
maxim2
2002-10-25 08:47
2002.11.18
Непорали сделать форум по Kylix ?


1-59126
iNew
2002-11-08 12:20
2002.11.18
Можно ли сделать чтобы в MessageDlg вместо Yes, No





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский