mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: IsTotalCommanderSeemsRunning function

Browse source
This commit is contained in:
Alexander Koblov 2023-01-20 22:07:42 +03:00
commit 070c2ed38c
1 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/platform/win/uTotalCommander.pas
View file

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
Total Commander integration functions
Copyright (C) 2009-2019 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2009-2023 Alexander Koblov (alexx2000@mail.ru)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@ -732,9 +732,15 @@ var
ClassName: PChar;
begin
ClassName := Stralloc(100);
GetClassName(Wnd, ClassName, 99);
if ClassName = 'TTOTAL_CMD' then
Inc(TCNumberOfInstance);
if GetClassName(Wnd, ClassName, 99) > 0 then
begin
if ClassName = 'TTOTAL_CMD' then
begin
// Skip Double Commander main window class
if GetPropW(Wnd, 'WinControlDC') = 0 then
Inc(TCNumberOfInstance);
end;
end;
Result := True;
strDispose(ClassName);
end;
@ -750,7 +756,7 @@ begin
finally
end;
Result := (TCNumberOfInstance > 1);
Result := (TCNumberOfInstance > 0);
end;
{ areTCRelatedPathsAndFilesDetected }