Форум: "Начинающим";
Текущий архив: 2008.09.14;
Скачать: [xml.tar.bz2];
ВнизВвод текста в другой программе Найти похожие ветки
← →
InsanI (2008-08-01 19:59) [0]Допрово времени суток всем.
Как сделать, подскажите пожалуйста, мне нужно считывать текст из файла, и этот текст вставить в окно ввода другой программы
← →
easy © (2008-08-01 20:04) [1]
> и этот текст вставить в окно ввода другой программы
не иначе - аси..
← →
InsanI (2008-08-01 20:09) [2]Не, не аси, просто в активное окно
← →
easy © (2008-08-01 20:20) [3]
procedure TForm1.Button1Click(Sender: TObject);
var
handleofnotepad: HWND;
const
text = "This is some text to send to notepad.";
begin
handleofnotepad:= FindWindow("notepad",nil);
if handleofnotepad = 0 Then
ShowMessage("Notepad not found.")
else begin
handleofnotepad := GetWindow(handleofnotepad, GW_CHILD);
SendMessage(handleofnotepad, WM_SETTEXT, 0, LPARAM(Pchar(text)));
end;
end;
← →
InsanI (2008-08-01 20:26) [4]А как сделать что бы считывал из текстового файла?
← →
easy © (2008-08-01 20:34) [5]
> А как сделать что бы считывал из текстового файла?
хотел написать "горшочек - вари!" но не напишу
← →
easy © (2008-08-01 20:37) [6]var
F: TextFile;
S: string;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
Reset(F);
Readln(F, S); { Read first line of file }
Edit1.Text := S; { Put string in a TEdit control }
CloseFile(F);
end;
end;
← →
InsanI (2008-08-01 20:49) [7]Пасиба тебе:)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.09.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.046 c