Открытие файла

← →
Poof-poof (2003-11-04 15:43) [0]

Как написать прогу так, что-бы ей можно было открывать текстовые файлы...
Т.е. прошил в реестре открытие (например *.txt) файла...
Кликнул на файл test.txt и запускается моя прога и там в Memo1 уже сидит его содержание...
Как сделать?

← →
Song (2003-11-04 15:44) [1]

1) Зарегистрироват расширение
2) Анализировать 1-ый параметр

← →
Poof-poof (2003-11-04 15:55) [2]

А как это в коде выглядет?
Где писать?
Что писать?
И что это за первый параметр, это переменная чтоли?

← →
@Ujin (2003-11-04 15:57) [3]

procedure RegisterExtensions(InArr: array of string; AppName: string; DefaultIcon: string; FilePath: string);
var i: integer;
def: string;
begin
with TRegistry.Create do
try
RootKey:= HKEY_CLASSES_ROOT;
for i := high(InArr) downto 0 do
begin
OpenKey(InArr[i], true);
def := AppName + ".File";
WriteString("", def);
CloseKey;
OpenKey(def, true);
OpenKey("DefaultIcon", true);
WriteString("", DefaultIcon);
CloseKey;
OpenKey(def, false);
OpenKey("Shell", true);
OpenKey("Open", true);
OpenKey("Command", true);
WriteString("", """+FilePath+"" "+""%1"");
CloseKey;
end;
finally
Free
end;
end;

procedure UnRegisterExtensions(InArr: array of string);
var i: integer;
def: string;
begin
with TRegistry.Create do try
RootKey := HKEY_CLASSES_ROOT;
for i:=High(InArr) to 0 do
if OpenKey(InArr[i], false) = true then begin
def := ReadString("");
CloseKey;
if KeyExists(def) then DeleteKey(def);
DeleteKey(InArr[i]);
end;
finally
Free
end;
end;

← →
Poof-poof (2003-11-04 17:36) [4]

Спасибо!
Ну это понятно... С реестром я работать умею...
Мне больше интересно про первый параметр...
Как его получить и запихнуть в Memo1?

← →
Amoeba (2003-11-04 17:38) [5]

А зачем пихать параметр в Memo1?

← →
Anatoly Podgoretsky (2003-11-04 17:39) [6]

Для отчетности

← →
Poof-poof (2003-11-04 17:40) [7]

Ну типа текст из текстового файла нужно запихнуть в Memo1 для редактирование этого самого текста...

← →
Anatoly Podgoretsky (2003-11-04 17:42) [8]

LoadFromFile

← →
mOOx_ (2003-11-04 17:48) [9]

Человека ParamStr(xxx) интересует, а вы ему голову морочите :)
Удачи :)

← →
Poof-poof (2003-11-04 18:28) [10]

Точно!
ParamStr();
Спасибо! :)

Открытие файла Найти похожие ветки