ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
25.04.2009, 16:23
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
Код:
var
buf:array[0..100] of char;
begin
GetWindowsDirectory(buf,100);
buf[0] будет содержать букву диска |
|
|
25.04.2009, 20:17
|
|
Участник форума
Регистрация: 02.11.2008
Сообщений: 222
Провел на форуме:
3459722
Репутация:
155
|
|
надо написать приложение на дельфи которое должно выводить из буфера текст в стороннее приложение и нажимать enter т оесть.
enter-ввела текс-enter и так без конца.Текс она выводит но не в сторонние приложения.
вот часть кода .Извените за корявую вставку
Код:
unit Unit1; * interface * uses * Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, * Dialogs,Clipbrd,StdCtrls; * type * TForm1 = class(TForm) *** Button1: TButton; *** Edit1: TEdit; *** Button2: TButton; *** Memo1: TMemo; *** Edit2: TEdit; *** procedure Button1Click(Sender: TObject); *** procedure Button2Click(Sender: TObject); * private *** { Private declarations } * public *** { Public declarations } * end; * var * Form1: TForm1aiwin,i:integer; * implementation * {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin memo1.Clear; Clipboard.SetTextBuf(PChar(edit1.Text)); end; procedure TForm1.Button2Click(Sender: TObject); begin daiwin:=strtoint(edit2.text); for i:=1 to* daiwin+1 do begin if i<daiwin then Memo1.SelText := Clipboard.AsText; end; end; end.
|
|
|
|
25.04.2009, 20:51
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389
Репутация:
332
|
|
кто знает как winapi (и только!) загрузить и отобразить рисунок из PNG файла.
Только из PNG.
|
|
|
|
25.04.2009, 21:00
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
также как и bmp. но предварительно раскодировав формат ручками. Бери описание формата и смотри какие поля за что овтечают
|
|
|
|
25.04.2009, 21:06
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389
Репутация:
332
|
|
slesh
я до последнего надеялся что смогу без этого обойтись) но придется...
|
|
|
|
25.04.2009, 21:09
|
|
Участник форума
Регистрация: 02.11.2008
Сообщений: 222
Провел на форуме:
3459722
Репутация:
155
|
|
а мне кто нить подскажет?
|
|
|
|
25.04.2009, 21:29
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
2 waik SetWindowText(H,pchar(Clipboard.AsText));
где H - дискриптор поля ввода в чужом окне.
|
|
|
|
25.04.2009, 21:38
|
|
Участник форума
Регистрация: 02.11.2008
Сообщений: 222
Провел на форуме:
3459722
Репутация:
155
|
|
Сообщение от slesh
2 waik SetWindowText(H,pchar(Clipboard.AsText));
где H - дискриптор поля ввода в чужом окне.
эмм. . спасибо но как узнать имя дескриптора и как сделат ьнежатие клавиши enter перед вводом текста и после ввода текста
|
|
|
|
25.04.2009, 21:40
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
2 KIR@PRO
Если будеш юзать PNG то придется тебе еще и LZW реализовывать. потому что он именно им и пакован. По этому советую поглядеть как это всё было сделано в опенсоурской libpng (http://www.libpng.org/pub/png/libpng.html)
Вот тут вот описано как юзать это всё http://www.gamedev.ru/articles/?id=70122
|
|
|
|
25.04.2009, 21:43
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
waik: или юзай функции FindWindow чтобы найти нужно окно, а потом ищи на нем элемент.
Или в таймере запусти код:
h:=WindowFromPoint(mouse.CursorPos);
edit1.text:=inttohex(h,8);
и он будет показывать тебе дискриптор элемента на который наведена мышка.
А потом просто впиши этот дискриптор и всё (пс при каждом запуске приложения этот дискрипт меняется)
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
