Skifte til et bestemt aktivt program fra program-trayet

procedure TForm1.Button1Click(Sender: TObject);
var
  myhandle : Hwnd;
begin
myHandle:=FindWindow(nil,'Ny Tekstdokument.txt - Noteblok' );// form2 er caption

  if myHandle<>0 then
  begin
    ShowWindow(myHandle,SW_SHOWNORMAL);
    BringWindowToTop(myHandle);
  end
  // else ShowMessage('Ny Tekstdokument.txt - Noteblok');
end;

Stoney

ups,
  // else ShowMessage('Ny Tekstdokument.txt - Noteblok' + 'ikke fundet');

Stoney

Takker for hjælpen stoney... Det var lige det jeg ledte efter :)