Ввод текста в другой программе

← →
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]

> А как сделать что бы считывал из текстового файла?

хотел написать "горшочек - вари!" но не напишу

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]

Пасиба тебе:)

Ввод текста в другой программе Найти похожие ветки