In Win32, create a new registry entry under the HKEY_CLASSES_ROOT root key that points to the file extension, the command line to invoke, and the icon to display. Under Win 6, simply file extension and the command line to invoke in the [Extensions] sections of Win.ini.

Example:

uses Registry, {For Win32} IniFiles; {For Win 6}

{For Win32} procedure TForm .Button Click(Sender: TObject); var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_CLASSES_ROOT; reg.LazyWrite := false; {Add Program Support} reg.OpenKey('.bor\shell\open\command', true); {Invoke the program passing the file name as the first parameter} reg.WriteString('', 'C:\Program Files\Borland\Delphi 3\Project .exe % '); {Add Icon Display} reg.CloseKey; reg.OpenKey('.bor\DefaultIcon', true); {Use the first icon in the executable to display} reg.WriteString('', 'C:\Program Files\Borland\Delphi 3\Project .exe,0'); reg.CloseKey; reg.free; end;

{For Win 6} procedure TForm .Button2Click(Sender: TObject); var WinIni : TIniFile; WinIniFileName : array[0..MAX_PATH] of char; s : array[0..64] of char; begin GetWindowsDirectory(WinIniFileName, sizeof(WinIniFileName)); StrCat(WinIniFileName, '\win.ini'); WinIni := TIniFile.Create(WinIniFileName); WinIni.WriteString('Extensions', 'bor', 'C:\PROGRA~ \BORLAND\DELPHI~ \PROJECT .EXE ^.bor'); WinIni.Free; StrCopy(S, 'Extensions'); SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@S)); end;

7/ 6/98 4:3 :28 PM