Give parametre til kørende program

http://www.cryer.co.uk/brian/delphi/howto_send_custom_window_message.htm

eller bedre til dit behov:
http://delphi.about.com/od/windowsshellapi/a/wm_copydata.htm

Cool nop, den sidste løsning var lige hvad jeg havde brug for (tror jeg). Jeg ved ikke om det på længere sigt kan give problemer når det program der sender "message" er det samme program der skal modtage. Jeg tænker mere på at når FindWindow bliver kaldt om ikke man kan risikere at det er den forkerte version jeg får fat på? Altså ikke den der allerede fandtes men den nye som bare skal sende en message og lukke igen? Når man kigger i Windows Jobliste så kan man se at der kortvarigt er 2 udgaver af programmet.. hvordan kendes der forskel?

Der er rigtigt nok et problem med netop at find det rigtige window.
Jeg tror også du bliver nød til at bruge enumwindows(), som er en funktion i windows  API'et til at liste alle åbne windows, når du så har fundet et window med det ønskede navn, så tester du om handlet er det samme som i det program du "står" i, hvis det er så skal du så IKKE sende message, men fortsætte på listen.

Du kan faktisk også bare sætte captionen til noget andet, medens du laver findwindow(), det skulle være lige til.

Det sidste lyder nemmest, kan du uddybe lidt?
Lige nu har jeg følgende i mit programs opstart:

Program Multicopy;

uses Forms, Windows, Messages, main in 'main.pas';

begin
  if(not AppIsAlreadyRunning(Application.Title)) then //Mutexcontrol-funktion
  begin
    Application.Initialize;
    Application.MainFormOnTaskbar := True;
    Application.Createform(TfrmMultiCopy, frmMultiCopy);
    Application.Run;
  end
  else
    SendString; //fra dit link
end.

Måske sådan her

procedure sendString;
  temp:=application.caption;
  application.caption:=temp+'.';
  hw:=findwindow(nil,temp);
  application.caption:=temp;

  //lav send til hw

end;

Så vidt jeg kan se så operere FindWindow på hovedformens navn og desværre ikke programmets navn. Mit program hedder Multicopy og min forms navn er frmMulticopy (TfrmMulticopy).
Lige nu hedder det: myhandle := FindWindow(nil,PChar('frmMulticopy'));
Hvis jeg skifter det til bare "MultiCopy" så kan den ikke finde programmet.

Men så er svaret muligvis som nedenstående, logikken passer; rename selft, find, rename self tilbage.
Du kan evt se her for få hjælp til at finde handle: http://www.swissdelphicenter.ch/torry/showcode.php?id=327

procedure sendString;
var
  temp: string;
  hw: Thandle;
begin

  temp:=frmMulticopy.caption;
  frmMulticopy.caption:=temp+'.';
  hw:=findwindow(nil,temp);
  frmMulticopy.caption:=temp;

  //lav send til hw

end;

Hmmm... det ser fint ud, men kan ikke umiddelbart lade sig gøre, da jeg ikke opretter formen mere end én gang. Men så burde jeg teoretisk set heller ikke have et problem :D
Tak for det Nop.