Форум: "WinAPI";
Текущий архив: 2003.01.20;
Скачать: [xml.tar.bz2];
ВнизПосылка сообщения Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.01.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c