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

← →
Profi © (2004-08-20 02:28) [0]

Что-то я совсем забыл! Я привязываю текстовый файл к своей проге. Как мне при открытие проги если она была запущенна двойным кликом на файле, загрузить данные из файла, скажем, в Memo?

← →
RaPToR_1 (2004-08-20 02:42) [1]

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;

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

← →
3APA3A © (2004-08-20 04:00) [2]

Я не понял, что ты хочешь сказать, но если ты хочешь, чтобы при клике на текстовый файл, запускалась твоя прога и грузила его в Memo, то надо
а) ассоциировать текстовые файлы с твоей программой в реестре
б) написать в FormCreate или FormShow вот это
Memo1.LoadFromFile(ParamStr(1));

← →
gg_no_re (2004-08-20 10:47) [3]

А если тройным щелчком мыши запущена то не надо?

Загрузка файла Найти похожие ветки