帮我看看以下程序哪里出错了(50分)

小唐 · 2003-05-13

program Project1; uses   Forms,   Windows,   Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} var   hMutex : Thandle;   WaitResult : word;   BroadcastList : DWORD;   MessageID : DWORD; begin      MessageID := RegisterWindowMessage('Check For Choice Previous Inst');      hMutex := createMutex(nil,false,pchar('App_Choice'));      WaitResult := WaitForSingleObject(hMutex,10);      if (waitResult=WAIT_TIMEOUT) then        begin           BroadcastList :=BSM_APPLICATIONS;           BroadcastSystemMessage(BSF_POSTMESSAGE,@BroadcastList,MessageID,0,0);        end      else       begin         Application.Title := 'Choice Organics Purchase & Sales System';         Application.Initialize;         Application.CreateForm(TForm1, Form1);         Application.Run;         ReleaseMutex(hMutex);       end;       CloseHandle(hMutex); end. {   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.Run; end.} /////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////// unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   private     { Private declarations } //    MessageID : DWORD;     procedure OnAppMessage(var Msg : TMsg ; Var Handled : Boolean);   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure TForm1.OnAppMessage(var Msg : TMsg ; Var Handled : Boolean); begin if Msg.Message =MessageID then    begin       show;       WindowState := wsMaximized;       BringToFront;       SetFocus;       Handled := true;    end; end; procedure TForm1.FormCreate(Sender: TObject); begin   Application.OnMessage:= OnAppMessage; end; end. 程序能够运行，但是达不到我要的效果，我想达到像winamp那样的效果： 当程序被最小化时，再次双击桌面上的图标时，就会将最小化的程序激活并恢复成原样。

copy_paste · 2003-05-13

不懂，GZ。。。

小笨苯 · 2003-05-13

下面是完美的解决方案 始终保持一个实例，不论是最小化，还是被别的窗口挡住，还是隐藏，都能弹到最前端。 //工程文件单元 program Project1; uses   Forms,   Windows,   Unit1 in 'Unit1.pas' {Form1},   Unit2 in 'Unit2.pas'; {$R *.RES} var   UniqueMutex: HWND; begin   { 用于注册新消息和建立互斥量的字符串要尽量写的长一些，特殊一些，以确保唯一 }   UniqueMsgID := RegisterWindowMessage('aaaaaaaaaa');   UniqueMutex := CreateMutex(nil, false, PChar('bbbbbbbbbb'));   if GetLastError <> ERROR_ALREADY_EXISTS then   begin     Application.Initialize;     Application.CreateForm(TForm1, Form1);     Application.Run;   end   else   begin     SendMessage(HWND_BROADCAST, UniqueMsgID, 0, 0); //此处不可用PostMessage     ReleaseMutex(UniqueMutex);     Application.Terminate;   end; end. //主窗口单元 unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     procedure WndProc(var Msg: TMessage); override;   end; var   Form1: TForm1; implementation uses Unit2; {$R *.DFM} { TForm1 } procedure TForm1.WndProc(var Msg: TMessage); begin   if Msg.Msg = UniqueMsgID then   begin     if IsIconic(Application.Handle) then //如果程序已经是最小化，则...       Application.Restore     else //否则，不论是被别的窗口挡住还是隐藏起来了，都...     begin       Show;       ShowWindow(Application.Handle, SW_SHOW); //在没有拖放窗口的时候，这两句代码可以不要       SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_APPWINDOW);     end;     SetForegroundWindow(Application.Handle);   end;   inherited WndProc(Msg); end; procedure TForm1.Button1Click(Sender: TObject); begin   Hide; end; end. //公共单元（没有窗体） unit Unit2; interface var   UniqueMsgID: Cardinal; //用来存储自定义消息的常量标识符。放在这里，都可以访问得到。 implementation end.

小唐 · 2003-05-13

非常感谢小笨笨的热心帮助！

小唐 · 2003-05-14

经试验，将WndProc改成如下才可将窗口调用到最前， BringWindowToTop和SetForegroudWindow等都不起作用，不知为何？ /////////////////////////////////////////////////////////////////// procedure TForm1.WndProc(var Msg: TMessage); begin   if Msg.Msg = UniqueMsgID then   begin     if IsIconic(Application.Handle) then     begin       Application.Restore;     end     else begin  //暂时不考虑hide的情况       Application.Minimize;       Application.Restore;     end;   end;   inherited WndProc(Msg); end;

小笨苯 · 2003-05-14

？？？？有什么问题吗？

帮我看看以下程序哪里出错了(50分)

小唐

Unregistered / Unconfirmed

copy_paste

Unregistered / Unconfirmed

小笨苯

Unregistered / Unconfirmed

小唐

Unregistered / Unconfirmed

小唐

Unregistered / Unconfirmed

小笨苯

Unregistered / Unconfirmed

Similar threads