Fixed shortcut bugs

Fixed include bug
Changed a few small things in the core
This commit is contained in:
Christian Hammacher
2005-09-09 16:49:41 +00:00
parent f8aac5e88d
commit e2a521583a
14 changed files with 203 additions and 343 deletions

View File

@ -1,5 +1,7 @@
program AMXX_Studio;
{%ToDo 'AMXX_Studio.todo'}
uses
Forms,
Windows,
@ -48,7 +50,7 @@ uses
var i: integer;
begin
if FindWindow('TfrmMain', 'AMXX-Studio') <> 0 then begin
if (FindWindow('TfrmMain', 'AMXX-Studio') <> 0) and (FindWindow(nil, 'Delphi 7') = 0) then begin
if ParamCount > 0 then begin
for i := 1 to ParamCount do
SendStudioMsg(SCM_LOADFILE, ParamStr(i), 0);