Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Загрузка файла

Profi © (2004-08-20 02:28:00)
Что-то я совсем забыл! Я привязываю текстовый файл к своей проге. Как мне при открытие проги если она была запущенна двойным кликом на файле, загрузить данные из файла, скажем, в Memo?

gg_no_re (2004-08-20 10:47:00) [1]
А если тройным щелчком мыши запущена то не надо?

3APA3A (2004-08-20 04:00:00) [2]
Я не понял, что ты хочешь сказать, но если ты хочешь, чтобы при клике на текстовый файл, запускалась твоя прога и грузила его в Memo, то надо
а) ассоциировать текстовые файлы с твоей программой в реестре
б) написать в FormCreate или FormShow вот это
Memo1.LoadFromFile(ParamStr(1));

RaPToR_1 (2004-08-20 02:42:00) [3]
var rf,FS:int64;
jj:longword;
buf: array of char;
s:string;
begin
s:='';
rf := Integer(CreateFile(PChar(fail), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0));
FS := GetFileSize(rf, nil);
SetLength(buf,FS);
SetFilePointer(rf, 0, nil, FILE_BEGIN);
ReadFile(rf, Buf[0], FS, LongWord(jj), nil);
CloseHandle(rf);
setlength(s,fs);
copymemory(@s[1],@buf[0],length(buf));
memo1.text:=s;

вот самый дебильный способ, зато работает )

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »