НичАво не работает....
Так, гляньте, что не так. В project.dpr прописывается:
| Код | program Project1;
uses
Windows,
syncobjs,
Forms,
Messages,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
var
a : Thandle;
begin
if (FindWindow (PAnsiChar ('Tform1'), PAnsiChar ('Form1')) = 0)
or
(FindWindow (nil, PAnsiChar ('Delphi 6')) <> 0)
{когда запущен Delphi то прога может найти это же окно в delphi и передумать запускаться}
then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
begin
a := FindWindow (PAnsiChar ('TForm1'),PAnsiChar('Form1'));
SendMessage(A, WM_ACTIVATEAPP, a, 0); //посылает сообщение с параметром равным handle окна
end;
end. |
В юнит:
| Код | unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellAPI;
type
TForm1 = class(TForm)
private
procedure WndProc(var Message: TMessage); override;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WndProc(var Message: TMessage);
begin
if (Message.Msg = WM_ACTIVATEAPP) and (Message.WParam = Handle)
then
begin
Form1.Show;
//Form1.WindowState := wsNormal;
//Applcation.Restore;
ShowMessage('Программа уже запущена');
end
else
inherited
end;
end. |
To nJIaKca.spb: | Цитата | | ну и т.п. все зависит от того как у тебя сприятана прога и че необходимо сделать |
Нужно только форму развернуть, када она свернутая. |
