как открыть файл через прогу?

[ЧИЖ]

Пишу некоторый редактор некоторых файлов.
Моя прога может открыть файл для редактирования 3-мя способами
на пиктограмму, через меню, и на гор клавишу (во всех случаях открывается opendialog) мне надо чтобы (как любой редактор) прога открывала ассоциированный файл запуском самого файла, как это сделать?????

[LeoN]

ЧИЖ что то я немного вопрос не понял при чем тут вообще OpenDialog?

[mihali4]

Пишу некоторый редактор некоторых файлов

Ну, для некоторого редактора некоторых файлов, думается, подойдет некоторым образом такой способ запуска (аж с некоторым ожиданием):

procedure TFMain.ShellExecute_AndWait(FileNam e: string);
var
exInfo: TShellExecuteInfo;
Ph: DWORD;
begin
FillChar(exInfo, SizeOf(exInfo), 0);
with exInfo do
begin
cbSize := SizeOf(exInfo);
fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
Wnd := GetActiveWindow();
ExInfo.lpVerb := 'open';
lpFile := PChar(FileName);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@exInfo) then
begin
Application.Minimize;
Ph := exInfo.HProcess;
end else
Exit;
while WaitForSingleObject(ExInfo.hProcess , 50) <> WAIT_OBJECT_0 do
Application.ProcessMessages;
CloseHandle(Ph);
Application.Restore;
end;

Осталось некоторым образом разобраться и некоторым образом приспособить под свои нужды...

[ЧИЖ]

а можно чуть чуть пояснить код процедуры? ато я пока разобрался только как сделать ее съедобной для компилятора,

и когда она должна вызываться onformcreate?

[mihali4]

когда она должна вызываться onformcreate?

Э-э-х, память девичья... Это кто писал, Пушкин?

мне надо чтобы (как любой редактор) прога открывала ассоциированный файл запуском самого файла

[ЧИЖ]

Нашел я ответ на свой вопрос.
Все оказалось проще: нужное мне для открытия файла
filename=paramstr(1)
заодно вместо открытия файла через прогу ее можно также запускать например с ярлыка с каким нибудь параметром.

[zetrix]

Хех, т.е. для каждого редактируемого файла свой ярлык?
Вообще-то все ассоциации делаются через реестр.

[mihali4]

Вообще-то все ассоциации делаются через реестр.

А я делал именно приведенной процедурой (просто скопировал из модуля). Разве на диске с книгами по Дельфи она отрабатывает неверно?
Ну, естественно, используются имеющиеся в системе ассоциации.

[ЧИЖ]

Зачем для каждого файла свой ярлык?
если файл "Открыть с помощью..." проги (ну или ассоциированный просто "Открыть") то paramstr(1) = filename (того файла который открываешь), а мне больше ни чего и не надо, далее просто вызывается процедура которая читает данные из файла filename
в буфер), ровно также как если сначала открыть прогу а потом в ней файл.

И к стати где в реестре живет инфа от том через какую прогу открывать файл данного типа, и какая у него иконка, ато я нашел только где живут названия типов файлов.

[Fainder]

Я пользовался таким вот образчиком:

procedure TForm1.Button1Click(Sender: TObject);
var
R : TRegIniFile;
begin
R := TRegIniFile.Create('');
with R do
begin
RootKey := HKEY_CLASSES_ROOT;
WriteString('.myext','','MyExt');
WriteString('MyExt','','Some description of MyExt files');
WriteString('MyExt\DefaultIcon','', 'C:\MyApp.Exe,0');
WriteString('MyExt\Shell','','This_ Is_Our_Default_Action');
WriteString('MyExt\Shell\First_Acti on',
'','This is our first action');
WriteString('MyExt\Shell\First_Acti on\command','',
'C:\MyApp.Exe /LotsOfParamaters %1');
WriteString('MyExt\Shell\This_Is_Ou r_Default_Action','',
'This is our default action');
WriteString('MyExt\Shell\This_Is_Ou r_Default_Action\command',
'','C:\MyApp.Exe %1');
WriteString('MyExt\Shell\Second_Act ion',
'','This is our second action');
WriteString('MyExt\Shell\Second_Act ion\command',
'','C:\MyApp.Exe /TonsOfParameters %1');
Free;
end;
end;

Прописываешься в реестре и никаких ярлыков для каждого файла, никаких "Открыть с помо-щью..." Хочешь - несколько действий. Хочешь - несколько типов файлов. В общем коротко, сухо и комфортно