文件夹问题

Question

我在安装路径下有2个文件夹，一个存WORD，EXCEL，一个存JPG等扫描的图片，
在窗体上放一个输入框和一个选择类型的选择框，来实现打开操作，怎么实现这个

Answer 1

if edit1.text := 'word' then
 OpenDialog1.InitialDir := 安装路径+'\word'
else
  if edit1.text := 'EXCEK' then
     OpenDialog1.InitialDir := 安装路径+'\word'
  else
     OpenDialog1.InitialDir := 安装路径+'\JPG';

Answer 2

完整程序是这样：
---------------------------------------
if edit1.text := 'word' then
 OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName)+'\word'
else
  if edit1.text := 'EXCEK' then
     OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName)+'\word'
  else
     OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName)+'\JPG';

Answer 3

上面程序有点问题，字打错了
----------------------------------
if edit1.text := 'WORD' then
 OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName)+'\WORD'
else
  if edit1.text := 'EXCEL' then
     OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName)+'\EXCEL'
  else
     OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName)+'\JPG';