title image


Smiley Re: Auf laufende Applikation zugreifen
Das Bsp. geht nur fuer den Progressbar-Wert. EinenText uebermitteln wird so nicht gehen da musst Du dann wohl aufDDE zurueckgreifen.Die Ereignisse OnCreate und OnDestroy zuweisen!unit sender;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) ProgressBar1: TProgressBar; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private mutex: THandle; procedure WMCommand(var Message: TWMCommand); message WM_Command; end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.WMCommand(var Message: TWMCommand);begin if (Message.Msg = WM_COMMAND) and (TMessage(Message).wparam = wm_user+99) then begin ProgressBar1.Position:= TMessage(Message).lparam; end else inherited;end;procedure TForm1.FormCreate(Sender: TObject);var hwnd,mutex:THandle; value, code :integer;begin mutex:= 0; mutex:= createmutex(nil, true, 'MySpecialApp'); if (mutex = 0) or (GetLastError 0) {App laeuft schon} then begin val(paramstr(1), value, code); if code=0 then begin hwnd:= FindWindow('TForm1', 'MySpecialApp'); if hwnd0 then sendMessage(hwnd, wm_command, wm_user+99, value); end; destroy; end else caption:= 'MySpecialApp'; {nicht im ObjectDesigner setzen}end;procedure TForm1.FormDestroy(Sender: TObject);begin if mutex0 then CloseHandle( Mutex );end;end.CiaoCO

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: