Главная страница
    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.059 c
15-1216058333
GrayFace
2008-07-14 21:58
2008.09.14
Система контроля версий кода для VS2005 для удаленной работы


2-1217753286
fokas
2008-08-03 12:48
2008.09.14
аналог TreeView без скролов + ScrollBar


15-1217051959
@!!ex
2008-07-26 09:59
2008.09.14
Как исправить ошибки линковки? (С++)


15-1216808213
Vlad Oshin
2008-07-23 14:16
2008.09.14
V:Variant; В чем разница? V:=varEmpty, V:=null, V := Unassigned;


15-1216787659
Тоша
2008-07-23 08:34
2008.09.14
Социологический опрос





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский