Armabell V0.0.7 Doesn't work

[wrtlprnft]

aps.exe needs the path&filename/of/the/plugin.exe as command line parameter.

maybe ed can send you some additional explanations - he got it up in seconds.
sorry, my english is too bad.

Hmm, easy way on Windows (IIRC) is to drag the plugin exectutable (the one that refused to start) onto aps.exe.

[ed]

Another way would be to create a simple batch file.

Assuming your path to the Armabell plugins directory is:

C:\Program Files\ArmaBell\Plugins\

add aps.exe to this directory.

create a text file within this directory called maps.bat - making sure it's not maps.bat.txt - Tools > folder options > View > Hide extensions for known file types must not be ticked.

within this file put the line:

Code: Select all

aps.exe "C:\Program Files\ArmaBell\Plugins\armabellmaped.exe"

And save it. You can now run the map editor by doubleclicking map.bat. You can even create a shortcut to map.bat to put on your desktop/start menu.

The the same way you could have the text colour helper tool with text.bat that contains

Code: Select all

aps.exe "C:\Program Files\ArmaBell\Plugins\armabelltextcolors.exe"

[Sylv]

Let this be a lesson: give out the source unless you have strong reason not to.

i forgot

this can be compiled with Delphi 7 or Delphi 2005 (personal edition) - i didnt try FreePascal/Lazarus.

Code: Select all

program aps;

{$APPTYPE GUI}

uses
  SysUtils, Windows, Shellapi, Dialogs, Forms;

type
  PMMFData = ^TMMFData;
  TMMFData = record
    sText: string;
  end;

procedure ShellExecAndWait(dateiname: string; Parameter: string);
var
  executeInfo: TShellExecuteInfo;
  dw: DWORD;
begin
  FillChar(executeInfo, SizeOf(executeInfo), 0);
  with executeInfo do
  begin
    cbSize := SizeOf(executeInfo);
    fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
    Wnd := GetActiveWindow();
    executeInfo.lpVerb := 'open';
    executeInfo.lpParameters := PChar(Parameter);
    lpFile := PChar(dateiname);
    nShow := SW_SHOWNORMAL;
  end;
  if ShellExecuteEx(@executeInfo) then
    dw := executeInfo.HProcess
  else
  begin
    ShowMessage('Fehler: ' + SysErrorMessage(GetLastError));
    Exit;
  end;
  while WaitForSingleObject(executeInfo.hProcess, 50) <> WAIT_OBJECT_0 do
    Application.ProcessMessages;
  CloseHandle(dw);
end;

const
  MMPipeName: PChar = 'pip_ArmaBell';
var
  aHandle: THandle;
  DummyData: PMMFData;

begin
  if FileExists(ParamStr(1)) then
  begin
    aHandle := CreateFileMappingA($FFFFFFFF, 0, 4, 0, 32767, MMPipeName);
    if aHandle = 0 then
      raise Exception.Create('CreateFileMapping-Error: ' +
        IntToStr(GetLastError));
    DummyData := MapViewOfFile(aHandle, 2, 0, 0, 32767);
    if DummyData = nil then
    begin
      CloseHandle(aHandle);
      raise Exception.Create('MapViewOfFile-Error: ' + IntToStr(GetLastError));
    end;
    DummyData^.sText := 'ArmaBell';
    ShellExecAndWait(ParamStr(1), '');
  end
  else
  begin
    showmessage('usage:' + #13#10 +
      'aps.exe pluginfilename' + #13#10 +
      #13#10 +
      'example' + #13#10 +
      'aps.exe "c:\program files\armabell\plugins\armabellmaped.exe"');
  end;
end.

[skull1000]

i cant get it to work either and i dont know anything about or what to do with these codes... id like to do a map editor, edit my cycle and and the lines is just about all i want...im probly doing something eles so pm me if you have an awnser fer this idiot...(thats me)

[ed]

Here is armabell v7, the patch, a couple of batch files and a readme giving instructions to get it working.

edit: if you download this: http://vergin.org/no-leech/ArmaBell_0.0 ... _Setup.exe
it appears Sylv has also created a patched Installer that will install a working version.
Works for me.