Every single developer wishes to have their client start up only a single instance of their application. \u00a0 This reduces the amount of possible application issues if the code makes a database connection or does some sort of processing that takes away the machine resources. \u00a0 The following code snippet will help Delphi programmers to keep the process count down to a single instance. \u00a0This was coded using Rad Studio XE8 Delphi and is used in many of my applications.<\/p>\n
The code will be embedded in the project’s source because it has to occur prior to the application creating the main form.<\/p>\n
Click on the menu Project \/ View Source or using the project manager, you can right click and upon getting the pop-up, you can select view source as well.<\/strong><\/p>\n You will need for the most part the following uses prior to the forms you will be setting up in the project source file.<\/strong><\/p>\n The function CheckProcessCount will accept the application executable name so that it can locate the process (only if it is active ). Upon locating it the result will be set to one, otherwise a zero is returned<\/strong>.<\/p>\n The application executable name is sent to the processcount and will return either a 0 (not found) or a 1 (found).<\/strong> begin<\/p>\n if CheckProcessCount(ExtractFileName(Application.ExeName)) > 1 then This sample code has been compiled using Rad Studio XE8 Delphi and it does work under Windows 7 Professional. \u00a0 It is a Windows 32 bit application so please be aware of that.<\/strong><\/p>\n Pretty simple but yet effective.<\/strong><\/p>\n","protected":false},"excerpt":{"rendered":" Every single developer wishes to have their client start up only a single instance of their application. \u00a0 This reduces the amount of possible application issues if the code makes a database connection or does some sort of processing that takes away the machine resources. \u00a0 The following code snippet will help Delphi programmers to […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"rop_custom_images_group":[],"rop_custom_messages_group":[],"rop_publish_now":"initial","rop_publish_now_accounts":[],"rop_publish_now_history":[],"rop_publish_now_status":"pending","_exactmetrics_skip_tracking":false,"_exactmetrics_sitenote_active":false,"_exactmetrics_sitenote_note":"","_exactmetrics_sitenote_category":0,"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[5],"tags":[20,13,8,15,9,24,27,26],"class_list":["post-140","post","type-post","status-publish","format-standard","hentry","category-rad-studio-embarcadero-delphi-development","tag-delphi","tag-embarcadero","tag-lazarus","tag-microsoft","tag-pascal","tag-windows-10","tag-windows-7","tag-windows-8"],"yoast_head":"\n
\nuses
\nForms,
\nWindows,
\nDialogs,
\nTlHelp32,
\nSysUtils,
\nSystem.UITypes, ..
\n<\/code><\/p>\n
\nfunction CheckProcessCount(const ExeName: String): Integer;
\nvar
\nNextProcessLoop: BOOL;
\nFHandle: THandle;
\nFProcessEntry32: TProcessEntry32;
\nbegin
\nFHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
\nFProcessEntry32.dwSize := SizeOf(FProcessEntry32);
\nNextProcessLoop := Process32First(FHandle, FProcessEntry32);
\nResult := 0;<\/code><\/p>\n
\nwhile Integer(NextProcessLoop) <> 0 do
\nbegin
\nif ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =\u00a0UpperCase(ExeName)) or
\n(UpperCase(FProcessEntry32.szExeFile) =UpperCase(ExeName))) then Inc(Result);
\nNextProcessLoop := Process32Next(FHandle, FProcessEntry32);
\nend;
\nCloseHandle(FHandle);
\nend;
\n<\/code><\/p>\n
\n If the application is already running, an informational message is given to the user and then the application handle is acquired and the window is brought to the front.<\/strong>
\n If the application is not running then the application will initialize and start running.<\/strong><\/p>\n{$R *.RES}
\nVar
\nHandle : hwnd;<\/code><\/p>\n
\nbegin
\nMessageDlg(‘Manage-It! Adminstration Application is already running!’, mtInformation, [mbOk], 0, mbOk);
\nHandle := FindWindow(nil, ‘Manage-It! Help Desk Suite Administrator’);
\nif Handle > 0 then
\nbegin
\nSetForegroundWindow(Handle);
\nend;
\nend
\nelse
\nbegin
\nApplication.Title := ‘Manage-It! Administrator’;
\nApplication.CreateForm(TAdminForm, AdminForm);
\nApplication.Run;
\nend;
\nend.<\/p>\n