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

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

Посылка сообщения [D6, D7, Win2k, WinXP]

Kolja ©   (2002-12-04 01:51:00) 

Привет, нужно послать текст из своей программы в Edit другого приложения! Чем подробней будет раскрыт процесс, тем лучше. Заранее спосибо!

---

AlexandrRya   (2002-12-04 13:16:00) [1]

Вот примерчик (использует буфеп обмена):

procedure TForm1.Button1Click(Sender: TObject);
var wnd:HWND;//Здесь будет Handle едита
FName:TFileName;//имя файла, из которого нужнов вставить
error,readed,dwFileSize:DWORD;
Buffer:Pointer;
BufHandle:HGLOBAL;
explFile:THandle;
loc:HLOCAL;
begin
wnd:=StrToInt(Edit1.Text);
FName:=Edit2.Text;
explFile:=CreateFile(PCHAR(FName),GENERIC_READ + GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE,
nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,
0);
dwFileSize:=GetFileSize(explFile,nil);

try
BufHandle := GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, dwFileSize+1);
try
Buffer := GlobalLock(BufHandle);
try
ReadFile(explFile,Buffer^,dwFileSize,readed,nil);
OpenClipboard(Handle);
if SetClipboardData(CF_TEXT, BufHandle)=0 then
begin
error:=GetLastError();
FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or
FORMAT_MESSAGE_ALLOCATE_BUFFER,
nil,
Error,
0,
@loc, 0, nil);
MessageBox(0,PCHAR(loc),nil,MB_OK);
end;
CloseClipboard();
finally
GlobalUnlock(BufHandle);
end;
except
GlobalFree(BufHandle);
raise;
end;
finally

end;
closeHandle(explFile);
SendMessage(wnd,EM_SETLIMITTEXT,$7FFFFFFE,0);
SendMessage(wnd,WM_PASTE,0,0);

end;

---

Игорь Шевченко   (2002-12-04 09:08:00) [2]

Kolja (04.12.02 01:51)

Что за нужда в подробном раскрытии процесса посылки текста в чужой Edit ? (просто возможны разные варианты, изложи задачу, подберем верный ответ)

---

MBo   (2002-12-04 06:15:00) [3]

рекомендуемая литература:
Петцольд
Рихтер
MSDN

---

Наверх