请教：如何将程序激活。

Question

程序一运行即在托盘最小化，
加入如下代码,当再次运行程序时却无法激活主窗体，请教各位大侠,如何解决。  function StartExe(S:string):boolean;
  var aHandle: tHandle;
      P:array[0..79]of char;
  begin
    result:=true;
    strpcopy(p,s);
    aHandle:=FindWindow(pchar('tapplication'),p);
    if ahandle<>0 then
    begin
      SetForegroundWindow(ahandle);
      setactivewindow(ahandle);
      if isiconic(ahandle) then
      begin
        showwindow(ahandle,sw_restore);
      end;
      result:=false;
    end;
  end;
  
begin
    if startExe('myprogram) then
    begin
        Application.ShowMainForm :=false;
        Application.Initialize;
        Application.Title := 'myprogram';
        Application.CreateForm(TForm1, Form1);
        Application.Run;
    end;

Answer 1

你用
Form1.Show;
Form1.Restore;
Form1.BringToFont;

Answer 2

我看好象你的form1已经存在了，你的程序application 又创建了一个

Answer 3

不行啊，按aiirii(ari) ( ) 信誉：110 的方法报错。

Answer 4

//      if  isiconic(ahandle) then
//      begin
        showwindow(ahandle,sw_restore);
//      end;我改成这样后。
在任务栏能出来程序栏但不能显示主窗体。

Answer 5

本來這是個很簡單的實現啊!
你的
function StartExe(S:string):boolean;
放在那裹呢?? 最好放到Form1對應的unit中!
Form1是主窗體, 如果你說這樣還會出錯, 那就奇怪了!

Answer 6

乱七八糟！
网上有地是这方面地文章，帖一个给你　　某些程序运行启动后并不出现在任务条中，而是缩小为任务条右下角的一个小图标，当鼠标移到这个小图标上时会出现一些提示信息、单击该小图标会执行一些特定的操作。便如任务条右下角的小喇叭图标，单击它会弹出一个简单的音量控制条，双击会启动另一个更大的音量控制程序。
　　在Shell32.DLL动态链接库中包括一个函数Shell_NotifyIconA()可通知Windows在任务条右下角加入一个小图标，可惜该函数的详细说明未收入Delphi的帮助文档中，下面以一个简单的实例来说明如果使用该函数。unit Unit1;interface{ 记住在uses部分中包括 ShellAPI}uses
  Windows, Messages, SysUtils, Classes,
  Graphics, Controls, Forms, Dialogs,
  ShellAPI, StdCtrls;{自定义消息，当小图标捕捉到鼠标事件时Windows向回调函数发送此消息}
const MY_MESSAGE = WM_USER + 100;type
  TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormPaint(Sender: TObject);
  private
    procedure OnIconNotify(var Message: TMessage);
      message MY_MESSAGE;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}{当小图标捕捉到鼠标事件时进入此过程}
procedure TForm1.OnIconNotify(var Message: TMessage);
const
  Busy: Boolean = false;
begin
  if not Busy then begin    Busy := true;
    if Message.LParam=WM_LBUTTONDOWN then
      if Application.MessageBox('Are you sure',
         'Exit', MB_YESNO)=IDYES then Close;
    Busy := false;
  end;
end;{当主Form建立时通知Windows加入小图标}
procedure TForm1.FormCreate(Sender: TObject);
var
  nid: TNotifyIconData;
begin
  nid.cbSize := sizeof(nid); // nid变量的字节数
  nid.Wnd := Handle; // 主窗口句柄
  nid.uID := -1; // 内部标识，可设为任意数
  nid.hIcon := Application.Icon.Handle; // 要加入的图标句柄，可任意指定
  nid.szTip := 'This is a test application'; // 提示字符串
  nid.uCallbackMessage := MY_MESSAGE; // 回调函数消息  nid.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE; // 指明哪些字段有效
  if not Shell_NotifyIcon(NIM_ADD, @nid) then begin
    ShowMessage('Failed!');
    Application.Terminate;
  end;
  {将程序的窗口样式设为TOOL窗口，可避免在任务条上出现}
  SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;{程序被关闭时通知Windows去掉小图标}
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  nid: TNotifyIconData;
begin
  nid.cbSize := sizeof(nid); // nid变量的字节数
  nid.uID := -1; //内部标识，与加入小图标时的数一致
  nid.Wnd := Handle; //主窗口句柄
  Shell_NotifyIcon(NIM_DELETE, @nid); //去掉小图标end;{主窗口初始化完毕并显示时将激活Paint重画事件，此时将主窗口隐藏}
procedure TForm1.FormPaint(Sender: TObject);
begin
  Hide;
end;end.
 　　上例中将程序的图标放在任务条右下角，然后隐藏自身，当用户移动鼠标至该图标上时会看到提示字符串，如果单击该图标会出现一个对话框，选择Yes退出程序并清除小图标。

Answer 7

program Project1;uses
  Forms,windows,SysUtils,dialogs,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.res}  function StartExe(S:string):boolean;
  var aHandle: tHandle;
      P:array[0..79]of char;
  begin
    result:=true;
    strpcopy(p,s);
    aHandle:=FindWindow(pchar('tapplication'),p);
    if ahandle<>0 then
    begin
      SetForegroundWindow(ahandle);
      setactivewindow(ahandle);
//      if  isiconic(ahandle) then
//      begin
        showwindow(ahandle,sw_restore);
//      end;
      result:=false;
    end;
  end;
  
begin
    if startExe('myprog1') then
    begin
        Application.ShowMainForm :=false;
        Application.Initialize;
        Application.Title := 'myprog1;
        Application.CreateForm(TForm1, Form1);
        Application.Run;
    end;
end.

Answer 8

if isiconic(ahandle) then
isIconic是程序是否最小化在任务栏，和托盘没关系

Answer 9

procedure tform1.OpenForm(FormClass: TFormClass; var fm; AOwner: TComponent);
var  i: integer;
Child: TForm;
begin
  for i := 0 to Screen.FormCount - 1 do
      if screen.Forms[i].Owner = Aowner then
      exit
      else    //如有一窗口打?，?不打?新的窗口
      if Screen.Forms[i].ClassType = FormClass then
      begin
       Child := Screen.Forms[i];
       if Child.WindowState = wsMinimized then    
//如已存在但最少化的窗口,窗口複原
       ShowWindow(Child.handle, SW_SHOWNORMAL)
       else
       ShowWindow(Child.handle, SW_SHOWNA);
       if (not Child.Visible) then
       Child.Visible := True;
       Child.BringToFront;
       Child.Setfocus;
       TForm(fm) := Child;
       exit;
       end;
       Child := TForm(FormClass.NewInstance);
       TForm(fm) := Child;  Child.Create(AOwner);
       end;
end.

Answer 10

呵呵，我看没人想回答你了，都气晕了吧
放在program里，你想放弃事件编程呢，还是想自己构造一套事件驱动？
好好看看书，理解一下windows编程的思路，还有，你的信誉分儿低了些