Ready for release (1.1)

This commit is contained in:
Christian Hammacher
2005-09-04 13:03:34 +00:00
parent ea1d72401c
commit 58c006a9c8
11 changed files with 81 additions and 39 deletions

View File

@ -1,8 +1,6 @@
program AMXX_Studio;
uses
madExcept,
madLinkDisAsm,
Forms,
Windows,
Messages,
@ -50,12 +48,12 @@ uses
var i: integer;
begin
if FindWindow(nil, 'AMXX-Studio') <> 0 then begin
if FindWindow('TfrmMain', 'AMXX-Studio') <> 0 then begin
if ParamCount > 0 then begin
for i := 1 to ParamCount do
SendStudioMsg(SCM_LOADFILE, ParamStr(i), 0);
end;
//exit;
exit;
end;
Application.Initialize;
Application.Title := 'AMXX-Studio';