Delphi中根据程序名称判断是否多开
指尖风暴 - procedure TForm1.FormCreate(Sender: TObject);
- var
- errno:integer;
- hmutex:hwnd;
- begin
- hmutex:=createmutex(nil,false,pchar(application.Title));
- errno:=getlasterror;
- if errno=error_already_exists then
- begin
- ShowMessage('程序已经在运行了');
- Application.Terminate;
- end;
- end;
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
