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

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

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

Загрузка файла в программу [D5, D6, D7, Win95/98]

pet © (2003-01-02 16:03:00)
Вот зарегестрировал свой тип файлов. При нажатии выезжает моя программа. Как сделать, чтобы файл сразу загрузился (например в
memo),а то программа запускается а файл в нее не загружается?
Помогите

pavel_ak (2003-01-03 00:31:00) [1]
Извиняйте, что по дурному написал, прально так : http://pro-356.narod.ru/reestr.htm

pavel_ak (2003-01-03 00:29:00) [2]
Вот еще можно поглядеть:
<A HREF=" http://pro-356.narod.ru/reestr.htm"> http://pro-356.narod.ru/reestr.htm</A>

Rouse_ (2003-01-02 22:14:00) [3]
> ZEE © (02.01.03 21:59)
Цитирую:

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

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

ZEE (2003-01-02 21:59:00) [4]
Комментарий к Rouse_ © (02.01.03 20:12) - дополниткльную иконку надо сначала засунуть в ресурсы своей проги :)

Rouse_ (2003-01-02 20:12:00) [5]
В догонку, можешь через ресурсы добавить еще одну иконку, отличную от главной и изменив строку на
reg.WriteString("",exepfad+",1");
Будешь наслаждаться другой иконкой у зарегистрированного тобой расширения

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

Cr@sh (2003-01-02 20:01:00) [6]
Регистрируем новый тип файлов:

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;
Значок у твоих новых файлов, станет таким же как и у твоей проги!
Удачи...

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

Joisy (2003-01-02 16:15:00) [7]
Ochen prosto Memo1.LoadFromfile(ParamStr(1)); esli ne oshibayus :) Kopay paramstr() koroche ...

Наверх

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