Посылка сообщения

← →
Kolja (2002-12-04 01:51) [0]

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

← →
MBo © (2002-12-04 06:15) [1]

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

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

Kolja (04.12.02 01:51)

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

← →
AlexandrRya (2002-12-04 13:16) [3]

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

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;

Посылка сообщения Найти похожие ветки