Hi guys. After searching for a while on how to lock and limit the app clicking. And this is now possible.<\/p>\n
program Project2;<\/p>\n
<\/p>\n
uses<\/p>\n
Forms, Windows, Messages, Dialogs,<\/p>\n
Unit1 in ‘Unit1.pas’ {Form1};<\/p>\n
<\/p>\n
{$R *.res}<\/p>\n
<\/p>\n
function CreateSingleInstance(const InstanceName: string): boolean;<\/p>\n
var<\/p>\n
MutexHandle: THandle;<\/p>\n
begin<\/p>\n
MutexHandle := CreateMutex(nil, false, PChar(InstanceName));<\/p>\n
\/\/ if MutexHandle created check if already exists<\/p>\n
if (MutexHandle <> 0) then<\/p>\n
begin<\/p>\n
if GetLastError = ERROR_ALREADY_EXISTS then<\/p>\n
begin<\/p>\n
Result := false;<\/p>\n
CloseHandle(MutexHandle);<\/p>\n
end<\/p>\n
else Result := true;<\/p>\n
end<\/p>\n
else Result := false;<\/p>\n
end;<\/p>\n
<\/p>\n
var<\/p>\n
MyInstanceName: string;<\/p>\n
begin<\/p>\n
MyInstanceName := ‘Project2’;<\/p>\n
Application.Initialize;<\/p>\n
\/\/ Initialize MyInstanceName here<\/p>\n
if CreateSingleInstance(MyInstanceName) then<\/p>\n
begin<\/p>\n
\/\/ Form creation<\/p>\n
Application.CreateForm(TForm1, Form1);<\/p>\n
Application.Run;<\/p>\n
end<\/p>\n
else Application.Terminate;<\/p>\n
end.<\/p><\/blockquote>\n","protected":false},"excerpt":{"rendered":"
Hi guys. After searching for a while on how to lock and limit the app clicking. And this is now possible. Here is the code for the main project file program Project2; uses Forms, Windows, Messages, Dialogs, Unit1 in ‘Unit1.pas’ {Form1}; {$R *.res} function CreateSingleInstance(const InstanceName: string): boolean; var MutexHandle: THandle; begin … <\/p>\n
Continue reading “Delphi – Create a single instance of your app”<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3,1],"tags":[108,36,107,109,106],"class_list":["post-186","post","type-post","status-publish","format-standard","hentry","category-delphi-and-interbase","category-life-as-a-programmer","tag-app","tag-delphi","tag-instance","tag-mutex","tag-single"],"_links":{"self":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts\/186","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/comments?post=186"}],"version-history":[{"count":3,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts\/186\/revisions"}],"predecessor-version":[{"id":190,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts\/186\/revisions\/190"}],"wp:attachment":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/media?parent=186"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/categories?post=186"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/tags?post=186"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}