怎样在自己的程序中打开其他的程序（比如word，画笔等）？----可不可以使combobox中的某个选项不能（即不能被选中，就像菜单中的选项enabled为fa

怎样在自己的程序中打开其他的程序（比如word，画笔等）？----可不可以使combobox中的某个选项不能（即不能被选中，就像菜单中的选项enabled为false一样）？--delphi中有没有获取星期的函数？难道要自己算吗？----（100分，答对任何一个均给分，谢谢！）(100分)<br />怎样在自己的程序中打开其他的程序（比如word，画笔等）？同时要在这些程序中加载某些已知路径的文件怎么做？
--这个问题在98和2k下是否都能有效？我见过一个只在98下行，2k下就不行了！
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
可不可以使combobox中的某个选项不能（即不能被选中，就像菜单中的选项enabled为false一样）？
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
delphi中有没有获取星期的函数？难道要自己算吗？
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
三个简单的问题，等候您的指教！谢谢先。

d:= DayOfWeek(DateTime); //获得星期几的信息
case d of
1 : WeekStr:= '星期天';
......
7：WeekStr:='星期六'
end;

1
uses ...,comobj,shellapi;

var
word:Olevariant; //设为全局变量

begin
//Word 的打开可如下：

word:=Createoleobject('Word.application');
word.visible:=true;
//画笔的打开
shellexecute(handle,'open','C:/Program Files/Accessories/MSPAINT.EXE',nil,nil,SW_SHOW);

2 我的看法：不能
3
DayOfweek(date); //返回 1~7 ,1 是星期天

procedure TForm1.Button1Click(Sender: TObject);

var
ADate: TDateTime;
days: array[1..7] of string;
begin
days[1] := 'Sunday';
days[2] := 'Monday';
days[3] := 'Tuesday';
days[4] := 'Wednesday';
days[5] := 'Thursday';
days[6] := 'Friday';
days[7] := 'Saturday';
ADate := StrToDate(Edit1.Text);
ShowMessage(Edit1.Text + ' is a ' + days[DayOfWeek(ADate)];
end;

1:在打开程序的时候给她赋个参数就行了，参数应该是地址（含文件名）
如：shellexecute(handle,'open',
'F:/shihaitao/Picview/PicView.exe','F:/shihaitao/Picview/sht.jpg',nil,SW_SHOW);
其中picview是我自己写的一个图象浏览器，
2:用其他方法吧

To jsxjd:
用你的方法打开word，出现如下错误： Undeclared identifier: 'Createoleobject'是不是因为我的delphi有什么空间装全？我用的是d7。另：我要打开的某个指定的word文档，怎样再把具体文件调人到word中？

你要在uses部分加入ComObj单元才能使用jsxjd的方法。打开具体的word文档只要在jsxjd
的代码添加一行：
word:=Createoleobject('Word.application');
Word.Documents.Open(FileName:='文件全路径名',Revert:=false);
word.visible:=true;

刚才写错了，第二行代码的B_Doc现已改为Word(命名可以任意)

delphi中有没有获取星期的函数？难道要自己算吗？

使用 DayOfWeek: Integer

多人接受答案了。