gracias pero eso creo que es para aplicaciones delphi que creas tu mismo no?
al final lo he conseguido más o menos con esto , pero claro sabiendo el texto de la ventana, pero me sirve de momento así:
Código Delphi
[-]
var
Valor:integer;
begin
Valor:=FindWindow(nil,'Calculadora');
If Valor=0
then ShellExecute(Handle, 'open', 'Calculadora.exe', nil, nil, SW_SHOWNORMAL);
else ShowWindow(Valor, SW_MAXIMIZE);
end;