高手莫进

Question

怎样最小化窗口时只在系统栏中显示
AND
如何调用DOS命令？

Answer 1

1:使用Cool Tray Icon控件
2:ShellExecute调用
2000/xp
ShellExecute(Handle, 'Open', 'cmd.exe', nil, 'dir', SW_Show)
9x
ShellExecute(Handle, 'Open', 'command.com', nil, 'dir', SW_Show)

Answer 2

简单的我懂一点
1.
procedure TForm1.FormResize(Sender: TObject);
begin
  if WindowState = wsMinimized then
    Hide;
end;procedure TForm1.FormActivate(Sender: TObject);
begin
  Show;
end;
2.
  if WinExec('cmd.exe /c copy c:\unit1.pas c:\unit1.txt', SW_HIDE) < 32 then
    RaiseLastOSError;