Текст из блокнота в memo поле
автор evteev, Мар.03, 2009, рубрики Delphi/Pascal
Текст из блокнота в memo поле
var
buffer: pchar;
hedit, len: cardinal;
begin
hedit := findwindowex(findwindow('notepad', 'Бeзымянный - Блoкнoт'), 0, 'edit', nil);
if hedit <> then
begin
len := sendmessage(hedit, wm_gettextlength, 0, 0) + 1;
getmem(buffer, len);
try
if sendmessage(hedit, wm_gettext, len, integer(buffer)) <> then
mymemo.text := buffer
finally
freemem(buffer)
end
end
end
-
Языки программирования скачать!
Все о программировании - языки программирования скачать (Basic, C, C++, C#, Delphi, Pascal, Java, PHP).
На сайте вы найдете постоянно обновляющуюся интересную и полезную информацию о мире программирования, такие языки программирования как Basic, C, C++, C#, Delphi, Pascal, Java, PHP, C++ Builder и других.
Подписавшись на RSS feed, вы сможите всегда быть вкурсе самых последних событий сайта 'Все о программировании - языки программирования скачать'!
кэк
Цены, женский телефон