怎样把一个后台的进程转到前台呀，请高手赐教！(50分)

怎样把一个后台的进程转到前台呀，请高手赐教！

什么意思呢，进程还会前后吗

是这样的，我运行了一个应用程序实例后，如果我再点击不想再运行一个实例。我就想把刚才运行的那个实例激活一样。

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1381870

var
mutexhandle: integer;
processid: thandle;
thewindow: dword;
begin
if OpenMutex(MUTEX_ALL_ACCESS,false,'runoncemutex') <> 0 then
begin
thewindow := FindWindow('TForm1','Form1');
// GetWindowThreadProcessId(thewindow,@processid);
// OpenProcess(PROCESS_ALL_ACCESS,false,processid);
ShowWindow(thewindow,SW_RESTORE);
Application.Terminate;
exit;
end;

mutexhandle := CreateMutex(nil,true,'runoncemutex');
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
ReleaseMutex(mutexhandle);
end.
我这样写了，不过再点击一字时他还是不能像点击任务栏那样弹出。请高手们帮帮

请高手们帮帮