[moo2k]

Код:

function Start(AppName:string):boolean;
var
wnd:HWND;
begin
if Form1.FormStyle=fsStayOnTop then Form1.FormStyle:=fsNormal;
ShellExecute(wnd, 'open', PChar(AppName), nil, nil, SW_RESTORE);
Form1.FormStyle:=fsStayOnTop;
end;