Скачать: CL | DM;

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c