怎么改程序的进程名？(50分)

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.Title := 'svchast';
Application.CreateForm(TForm1, Form1);
Application.Run;
end.


但是没用 编译后依旧显示p****1 怎么改呢？


还有 怎么让程序只能运行一个 ~？

如果只让程序执行一次就应该这样：
技术交流QQ：136293586

procedure TfrmMainMenu.FormCreate(Sender: TObject);
var
ZAppName: array[0..127] of char;
Hold: string;
Found: HWND;
begin
inherited;
Hold := Application.Title;
Application.Title := 'OnlyOne' + IntToStr(HInstance);
StrPCopy(ZAppName, Hold);
Found := FindWindow(nil, ZAppName);
Application.Title := Hold;
if Found <> 0 then begin
MsgBox('您已经启动此管理系统。',MB_OK);
ShowWindow(Found, SW_RESTORE);
Application.Terminate;
end;
end;

接受~

接受答案了.