关于开始菜单和快速启动栏的小问题。(100分)

如何将自己的菜单替换Win9X的开始菜单；
如何在程序中动态屏蔽任务栏中的‘快速启动栏’。
我很菜的， 一定给我原代码哟(全一点的)。

很难的,没听说过.
//关注此题.

up

我也想知道如何把一个应用程序添加到开始菜单

还不是调用WinAPI函数，看看去年的电脑爱好者

应该就是先找到任务栏的handle，再对他进行操作吧。

gz

请热心的高手们帮帮我，我急用！

很簡單啊!!不過說起來就長了!!
你仔細去看看網吧管理程式吧!有的.........(網上下載一個就得了)

我这有一份自己写的源码，要的话给我Mail:snzdl@sina.com

To:snappy
能也給我一份嗎?
sydanlong@yahoo.com.hk
謝謝!
sydan

To:snappy
还有我！
nickylky@hotmail.com
谢谢！

yy,添加到开始菜单吗，制作安装程序阿

对啊，可是我还要在安装以后修改某个文件的内容！
还有啊，我用下面的程序里老报错（我用的是delphi6+win2k server）:
function DoCopyDir(sDirName:String;sToDirName:String):Boolean; //目录复制辅助函数;
var
hFindFile:Cardinal;
t,tfile:String;
sCurDir:String[255];
FindFileData:WIN32_FIND_DATA;
begin
//先保存当前目录
sCurDir:=GetCurrentDir;
ChDir(sDirName);
hFindFile:=FindFirstFile('*.*',FindFileData);
if hFindFile<>INVALID_HANDLE_VALUE then
begin
if not DirectoryExists(sToDirName) then
ForceDirectories(sToDirName);
repeat
tfile:=FindFileData.cFileName;
if (tfile='.') or (tfile='..') then
Continue;
if FindFileData.dwFileAttributes=FILE_ATTRIBUTE_DIRECTORY then
begin
t:=sToDirName+'/'+tfile;
if not DirectoryExists(t) then
ForceDirectories(t);
if sDirName[Length(sDirName)]<>'/' then
DoCopyDir(sDirName+'/'+tfile,t)
else
DoCopyDir(sDirName+tfile,sToDirName+tfile);
end
else
begin
t:=sToDirName+'/'+tFile;
CopyFile(PChar(tfile),PChar(t),True);
end;
until FindNextFile(hFindFile,FindFileData)=false;
FindClose(hFindFile); //***** [red]老是报这行错，说是形参与实参不一致。[/red]
end
else
begin
ChDir(sCurDir);
result:=false;
exit;
end;
//回到原来的目录下
ChDir(sCurDir);
result:=true;
end;

function CopyDir(sDirName:String;sToDirName:string):Boolean; //目录复制函数；
begin
if Length(sDirName)<=0 then
exit;
//拷贝...
Result:=DoCopyDir(sDirName,sToDirName);
end;
能不能帮我看一下？ 谢谢

To snappy:
请Email给我，chensh618@yahoo.com.cn , 谢谢。

我不明白你到底是替换开始菜单还是把程序的快捷方式加入开始菜单？

我这有一个是可以把开始菜单和开始按钮替换成自己的控件。

我是想替换开始菜单，
请把 可以把开始菜单和开始按钮替换成自己的控件发给我一份。
Email: chensh618@yahoo.com.cn
好使我就给分！

To:snappy
还有我！
arice2000@yeah.net

替换开始菜单

我的想法：用修改注册表的方法，把开始菜单内容全部隐藏，然后把自己的东西添加进去

多人接受答案了。