当鼠标移到button1上时成手状，同时打开了C盘，且同时运行excel

Question

第一个不是很好写吗？
move 过程里换个鼠标形状就行了！剩下的等高手帮你吧！
帮你up一下

Answer 1

在move事件里面加入下面两行:
Execute("explorer c:");
Execute("excel.exe");
变成手的形状你就设置Cur***(具体我也记不清了,不过你一点右边的下垃箭头会出现许多鼠标形状让你选择)的属性为手形的那一个就行了.

Answer 2

把BUTTON1控件的CURSOR属性该成你要的
uses shellapi；
button1onmousemove(...)
begin
  ShellExecute(Handle,'Open',PChar(‘c:\'),nil,nil,SW_SHOWNORMAL);  ShellExecute(Handle,'Open',PChar(‘c:\...excel.exe'),nil,nil,SW_SHOWNORMAL);end;

Answer 3

1.     同上realist(现实) 
2.     同WinExec('d:\winnt\explorer.exe c:',SW_MINIMIZE);
3.     同上但需更改Excel的执行路径。
{
控制窗口的可见性：
SW_HIDE 隐藏窗口，活动状态给令一个窗口
SW_MINIMIZE 最小化窗口，活动状态给令一个窗口
SW_RESTORE 用原来的大小和位置显示一个窗口，同时令其进入活动状态
SW_SHOW 用当前的大小和位置显示一个窗口，同时令其进入活动状态
SW_SHOWMAXIMIZED 最大化窗口，并将其激活
SW_SHOWMINIMIZED 最小化窗口，并将其激活
SW_SHOWMINNOACTIVE 最小化一个窗口，同时不改变活动窗口
SW_SHOWNA 用当前的大小和位置显示一个窗口，不改变活动窗口
SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口，同时不改变活动窗口
SW_SHOWNORMAL 与SW_RESTORE相同
}

Answer 4

改变光标的形状：
第一个不说了用Winexec('E:\mp3.exe',0)自己想想吧
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Screen.Cursor:=crHandPoint;
end;//移进按钮变成手状procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (X<Button1.Left) or (X>Button1.Left+Button1.Width) or
     (Y<Button1.Top ) or (Y>Button1.Top +Button1.Height) then
    Screen.Cursor:=crDefault;
end;//移出按钮变成默认状