[MIKHALKIN]

Добрый день.

Нужен пример(исходный код) программы:
Что бы программа не запускала новые экземпляры программы, но при этом получала параметры(хотя бы в поле едит). Нужен пример рабочий на VLC (Delphi 12)

[lmikle]

Ну примеров полно в интернете.
Например, я делаю так:

В dpr файле:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

program Project1;   uses ...   {$R *.res}   function AllowSetForegroundWindow(dwProcessId: DWORD): BOOL; stdcall; external 'user32.dll';   function IsSecondCopy : Boolean; var   hMutex : THandle; begin   Result := False;     WndMessage := RegisterWindowMessage(PChar(GetMessageName(AppName)));     hMutex := CreateMutex(Nil, True, PChar(GetMutexName(AppName)));   If hMutex<>0 Then     If GetLastError=ERROR_ALREADY_EXISTS Then       Begin         AllowSetForegroundWindow(DWORD(-1));         PostMessage(HWND_BROADCAST,WndMessage,0,0);         Result := True;       End; end;   begin   If IsSecondCopy Then Halt(0);   Application.Initialize;   Application.MainFormOnTaskbar := True;   Application.CreateForm(TMainForm, MainForm);   Application.HookMainWindow(MainForm.HookMessageProc);   Application.Run; end.

В главной форме:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

const   AppName = 'Password Keeper';   type   TMainForm = class(TForm)     ...   public     { Public declarations }     function HookMessageProc(var Message : TMessage) : Boolean;   end;   ...   function TMainForm.HookMessageProc(var Message : TMessage) : Boolean; begin   Result := False;   If Message.Msg = WndMessage Then     Begin       If WindowState = wsMinimized Then Application.Restore;       Application.BringToFront;       SetForegroundWindow(Self.Handle);       Result := True;     End; end;

Это по поводу второй копии.
По поводу передачи данных (небольших), надо пользовать сообщение WM_COPYDATA. Код можно посмотреть, например, тут:
https://stackoverflow.com/questions/...ia-wm-copydata