Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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
2-1217839681
DeeNamid
2008-08-04 12:48
2008.09.14
Пинг


2-1217606385
InsanI
2008-08-01 19:59
2008.09.14
Ввод текста в другой программе


11-1192822029
Вячеслав
2007-10-19 23:27
2008.09.14
Высоту списка в ComboBox?


2-1217518989
Евгений Р.
2008-07-31 19:43
2008.09.14
Есть ли такой компонент?


11-1193111866
Ajax
2007-10-23 07:57
2008.09.14
KOL + Turbo Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский