Er mit program åbent

Tags:    delphi

Hvordan kan jeg gøre sådan at hvis mit program er åbnet og det bliver åbnet igen så bliver mit program ikke åbnet men der bliver bare sat fokus på det. Formålet med dette er at hvis HR PCNØRD markere alle hans html filer og siger åbn med mit program så vil Windows normalt åbne mit program mange mange mange gange. Så hvordan sikrer jeg mig at alle de filer kun bliver åbnet i det samme slags af mit program?
Mvh
Kaare



2 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
Sorter efter stemmer Sorter efter dato
Closer.
Mvh
Kaare



Closer.
Mvh
Kaare


med denne kode kan dit program kun kører i en "instance"



var
MutexHandle: THandle;


begin
MutexHandle := CreateMutex(nil, TRUE, 'Myappditprogramnavn');
if MutexHandle <> 0 then
begin
if GetLastError = ERROR_ALREADY_EXISTS then

begin
MessageBox(0, 'Dit programnavn kører allerede.',
'Information', mb_IconHand);


CloseHandle(MutexHandle);
Halt; // 'Halt' er den som sørger for at programmet ikke
// kører i mere end en instance.
end

end;




Application.Initialize;
Application.Title := 'Ditprogramnavn';
Application.HelpFile := 'Ditprogramnavn.hlp';
Application.CreateForm(TForm1, Form1);
Application.Run;
end.





t