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

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

Посылка строки с переходом на следующую строку!

Arkan ©   (2002-11-12 18:50:00) 

Здравствуйте!
У меня прога открывает блокнот и туда посылает строку(SendMessage(WHandle,WM_SETTEXT,length(x),integer(x));). Внимание, вопрос! :) Как мне перейти на другую строку? Послать ему какой-то спец символ? Возможно, но останется ли у меня предыдущая строка??? Заранее спасибо.
И ещё вопросик! Как мне лучше всего сделать задержку???
Например, можно так:
h:=createevent(nil,true,false,"");
waitforsingleobject(h,100);
closehandle(h);
Моно и так:
sleep(100);
Объясните, что лучше или где использовать??

---

Guerrillero   (2002-11-13 15:27:00) [1]

Чтобц перейти на другую строку надо нажать Enter в конце этой строки.Попробуй это реализовать c помощью сообщений, например :
var
H : THandle;
I : Integer;
begin
WinExec("notepad",SW_SHOWNORMAL);
H := FindWindow("Notepad",nil);
if H < 32 then Exit;
H := FindWindowEx(H,0,"Edit",nil);
if H < 0 then Exit;
SendMessage(H,WM_SETTEXT,0,Integer(PChar("Ха-Ха")));
for I := 0 to 4 do // переходим в конец строки
begin
SendMessage(H,WM_KEYDOWN,VK_RIGHT,0);
SendMessage(H,WM_KEYUP,VK_RIGHT,0);
end;
SendMessage(H,WM_CHAR,VK_RETURN,0);

---

SottNick   (2002-11-13 06:26:00) [2]

x:="Строка1"#13#10"Строка2";
SetWindowText(WHandle,Pchar(x));

sleep(100);

---

Arkan   (2002-11-12 22:47:00) [3]

ну хотя бы с задержками помогите :(

---

Наверх