Загрузка файла в программу

← →
pet (2003-01-02 16:03) [0]

Вот зарегестрировал свой тип файлов. При нажатии выезжает моя программа. Как сделать, чтобы файл сразу загрузился (например в
memo),а то программа запускается а файл в нее не загружается?
Помогите

← →
Joisy (2003-01-02 16:15) [1]

Ochen prosto Memo1.LoadFromfile(ParamStr(1)); esli ne oshibayus :) Kopay paramstr() koroche ...

← →
Cr@sh (2003-01-02 20:01) [2]

Регистрируем новый тип файлов:

procedure Tform1.RegisterFileType(prefix:String; exepfad:String);
var
reg :TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey("."+prefix,True);
reg.WriteString("",prefix+"file");
reg.CloseKey;
reg.CreateKey(prefix+"file");
reg.OpenKey(prefix+"file\DefaultIcon",True);
reg.WriteString("",exepfad+",0");
reg.CloseKey;
reg.OpenKey(prefix+"file\shell\open\command",True);
reg.WriteString("",exepfad+" "%1"");
reg.CloseKey;
reg.Free;
end;

Вызывается так:
RegisterFileType("*", Application.ExeName);

Первый параметр – формат файла, например bmp
Второй параметр – путь к exe-файлу программы, и его имя…

Потом при открытии программы с помощью paramstr:
if FileExists(ParamStr(1)) then {это и есть тот самый файл, который мы открываем, и запускается наша программа…}
begin
//Делаешь с этим файлом что хочешь!
end;
Значок у твоих новых файлов, станет таким же как и у твоей проги!
Удачи...

--------------
Текст не мой, нашел у себя на компе

← →
Rouse_ (2003-01-02 20:12) [3]

В догонку, можешь через ресурсы добавить еще одну иконку, отличную от главной и изменив строку на
reg.WriteString("",exepfad+",1");
Будешь наслаждаться другой иконкой у зарегистрированного тобой расширения

Желаю успехов

← →
ZEE (2003-01-02 21:59) [4]

Комментарий к Rouse_ © (02.01.03 20:12) - дополниткльную иконку надо сначала засунуть в ресурсы своей проги :)

← →
Rouse_ (2003-01-02 22:14) [5]

> ZEE © (02.01.03 21:59)
Цитирую:

можешь через ресурсы добавить еще одну иконку, отличную от

Желаю успехов

← →
pavel_ak (2003-01-03 00:29) [6]

Вот еще можно поглядеть:
<A HREF=" http://pro-356.narod.ru/reestr.htm"> http://pro-356.narod.ru/reestr.htm</A>

← →
pavel_ak (2003-01-03 00:31) [7]

Извиняйте, что по дурному написал, прально так : http://pro-356.narod.ru/reestr.htm

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