PDA

Просмотр полной версии : Копирование текста всплывающего окна в файл


=Kostanakis=
31.08.2011, 16:02
Объясняю: всплывает модальное окно с текстом в элементе а-ля Edit. Вопрос: как средствами делфи при всплытии данного окна автоматом скопировать текст из Edit'a в txt? В принципе в тхт сохранить смогу - как из окна скопировать текст в программу?:bow:

VeTaL_UA
31.08.2011, 21:58
procedure TForm2.FormCreate(Sender: TObject);
var
s:TStringList;
begin
s:=TStringList.Create;
s.Add(Edit1.Text);
s.SaveToFile('1.txt');
s.Free;
end;

Mebius
31.08.2011, 22:34
procedure TForm2.FormCreate(Sender: TObject);
var
s:TStringList;
begin
s:=TStringList.Create;
s.Add(Edit1.Text);
s.SaveToFile('1.txt');
end;

а освобождать опять дядя ваня будет?

VeTaL_UA
31.08.2011, 22:50
а освобождать опять дядя ваня будет?
Забыл. Спешил просто. Добавил в код.

=Kostanakis=
01.09.2011, 00:19
Уточняю - окно с сообщением принадлежит другой программе, к исходникам которой я доступа не имею.

Mebius
01.09.2011, 00:42
Уточняю - окно с сообщением принадлежит другой программе, к исходникам которой я доступа не имею.

телепаты в отпуске.

по делу, ищешь хендл окна, потом субхендл компонента, по типам компонентов для отлова (понадобится при стыривании текста) можешь определить через spy++, писать тут как это делается в плане кода не смогу тк делал это пару раз и не запомнил толком, поищи на делфибейзикс, я оттуда брал пример вроде