procedure TForm1.Button1Click(Sender: TObject);
var
Window : hwnd;
begin
Window := FindWindow('Notepad',nil);
if SetForegroundWindow(Window) = True then
ShowWindow(Window, SW_SHOWNORMAL)
else
MessageDlg('Notepad No Esta Activo', mtInformation,[mbOk], 0);
end;