SRL Archive - FAQ

So how can I associate .scar files with Simba?

I'm on Windows 7, and I've already tried to associate the Simba.exe file with .scar files using the right click>properties>open with…>etc.

However, every time I try to open Simba, it never shows up in the dialog box.

Open Simba> View> Extensions> Enable Associate.sex
That should do it?
Also, right click Scar File> Properties> In there change default program to Simba

associate.sex associates .simba files with Simba, not .scar. Why not just rename all .scar files to .simba. Use the batch file I attached. Just save it to the folder with all the .scar files, manually change the extension from .txt to .cmd and run it. It will convert them all to .simba.

^that needs to be done for the srl include, since most of the include files have a .scar extension, everytime i need to change the view from .simba files to all which is pretty annoying.

You can just click and drag .scar files into Simba to view them. All file extensions will be changed for SRL5.

or, on a .scar file, open with> choose> (choose simba), tick "Always use this"

Yeah, I've tried enabling the file association through the windows dialog box, but simba won't show up, even after I've browsed for it.

Thanks, coh3n. I'll try that when I get home.

From: Infantry001
Yeah, I've tried enabling the file association through the windows dialog box, but simba won't show up, even after I've browsed for it.

Just browse to simba folder and click simba.exe manually
Or use this associate.sex, should work:

program AssociateFiles;
//File association extension for Simba by Nielsie95
//http://villavu.com/forum/showthread.php?t=56853

const
  ExtensionsDef = 'simb,simba,sex,scar';

var
  SimbaMenu: TMenuItem;
  Extensions: string;

type
  TCharArray = array of Char;

  function GetModuleFileName(
    Module: Cardinal; FileName: TCharArray; Size: Cardinal
  ): Cardinal; external 'GetModuleFileNameA@kernel32 stdcall';

  function RegCreateKeyEx(
    Key: LongWord; lpSubKey: TCharArray{PChar}; Reserved: LongInt; lpClass: Integer;
    dwOptions: LongInt; samDesired: LongWord; SecurityAttributes: Integer;
    var pResult: LongWord; var dwDisposition: Integer
  ): LongInt; external 'RegCreateKeyExA@advapi32.dll stdcall';

  function RegCloseKeyEx(
    Key: LongWord
  ): Integer; external 'RegCloseKey@advapi32.dll stdcall';

  function RegSetValueEx(
    Key: LongWord; lpValueName: TCharArray{PChar}; Reserved: LongInt; dwType: LongInt;
    Data: TByteArray{PByte}; cbData: LongInt
  ): Integer; external 'RegSetValueExA@advapi32.dll stdcall';

  procedure SHChangeNotify(
    EventID: Integer; Flags: Cardinal; Item1, Item2: Integer
  ); external 'SHChangeNotify@shell32.dll stdcall';

const
  REG_OPTION_NON_VOLATILE = 0;
  //KEY_ALL_ACCESS = 983130;
  KEY_WRITE = 131087;

  ERROR_SUCCESS       = 0;
  ERROR_ACCESS_DENIED = 5;
  ERROR_BADKEY        = 1010;
  ERROR_CANTOPEN      = 1011;
  ERROR_CANTREAD      = 1012;
  ERROR_CANTWRITE     = 1013;
  ERROR_KEY_DELETED   = 1018;

  HKEY_CLASSES_ROOT   = $80000000;
  HKEY_CURRENT_USER   = $80000001;
  HKEY_LOCAL_MACHINE  = $80000002;
  HKEY_USERS          = $80000003;
  HKEY_CURRENT_CONFIG = $80000005;

  REG_NONE       = 0;
  REG_SZ         = 1;
  REG_EXPAND_SZ  = 2;
  REG_BINARY     = 3;
  REG_DWORD      = 4;

  SHCNE_ASSOCCHANGED = $08000000;
  SHCNF_IDLIST       = 0;

function StringToCharArray(s: string): TCharArray;
var
  i, l: Integer;
begin
  l := Length(s);
  SetLength(Result, l + 1);
  for i := l downto 1 do
    Result[i - 1] := s[i];
  Result[l] := #0;
end;

function StringToByteArray(s: string): TByteArray;
var
  i, l: Integer;
begin
  l := Length(s);
  SetLength(Result, l + 1);
  for i := l downto 1 do
    Result[i - 1] := Ord(s[i]);
  Result[l] := 0;
end;

function SetString(Buffer: TCharArray; Len: Cardinal): string;
var
  i: Integer;
begin
  if (Len < 1) then
    Result := ''
  else
  begin
    SetLength(Result, Len);
    for i := 0 to Len - 1 do
      Result[i + 1] := Buffer[i];
  end;
end;

function GetExeName: string;
var
  Buffer: array of Char;
begin
  SetLength(Buffer, 261);
  Result := SetString(Buffer, GetModuleFileName(0, Buffer, Length(Buffer)));
end;

function RegOpenKey(KeyName: string; Root: LongWord; out Key: LongWord): Boolean;
var
  s: TCharArray;
  disp: Integer;
begin
  Result := False;
  s := StringToCharArray(KeyName); //Conversion to "PChar"
  case RegCreateKeyEx(Root, s, 0, 0, REG_OPTION_NON_VOLATILE, KEY_WRITE, 0, Key, disp) of
    ERROR_SUCCESS: Result := True;
    ERROR_ACCESS_DENIED: WriteLn('Access denied');
    ERROR_BADKEY: WriteLn('Bad key');
    ERROR_CANTOPEN: WriteLn('Can''t open');
    ERROR_CANTREAD: WriteLn('Can''t read');
    ERROR_CANTWRITE: WriteLn('Can''t write');
    ERROR_KEY_DELETED: WriteLn('Key marked for deletion');
  end;

  case disp of
    1: WriteLn('Key "'+KeyName+'" did not exist and was created.');
    2: WriteLn('Key "'+KeyName+'" existed and was simply opened without being changed.');
  end;
end;

function RegCloseKey(Key: LongWord): Boolean;
begin
  Result := RegCloseKeyEx(Key) = ERROR_SUCCESS;
end;

function RegCreateKey(KeyName: string; Root: LongWord): Boolean;
var
  t: LongWord;
begin
  if RegOpenKey(KeyName, Root, t) then
    Result := RegCloseKey(t)
  else
    Result := False;
end;

function RegWriteString(Key: LongWord; Name, Value: string): Boolean;
var
  n: TCharArray;
  v: TByteArray;
begin
  n := StringToCharArray(Name);
  v := StringToByteArray(Value);
  Result := RegSetValueEx(Key, n, 0, REG_SZ, v, Length(v)) = ERROR_SUCCESS;
end;

function AssociateExtension(Extension, ContentType, App: string): Boolean;
var
  t: LongWord;
begin
  Result := False;
  if (Extension = '') then
    Exit;

  if (not RegOpenKey('.' + Extension, HKEY_CLASSES_ROOT, t)) then
    Exit;
  RegWriteString(t, '', 'Simba.' + Extension);
  if (ContentType <> '') then
    RegWriteString(t, 'Content Type', ContentType);
  RegCloseKey(t);

  if (App <> '') then
  begin
    if (not RegOpenKey('Simba.' + Extension + '\DefaultIcon', HKEY_CLASSES_ROOT, t)) then
      Exit;
    RegWriteString(t, '', App + ',0');
    RegCloseKey(t);

    if (not RegOpenKey('Simba.' + Extension + '\shell', HKEY_CLASSES_ROOT, t)) then
      Exit;
    RegWriteString(t, '', 'open');
    RegCloseKey(t);

    if (not RegOpenKey('Simba.' + Extension + '\shell\open\command', HKEY_CLASSES_ROOT, t)) then
      Exit;
    RegWriteString(t, '', '"' + App + '" "%1"');
    RegCloseKey(t);
  end;

  Result := True;
end;

procedure UpdateAssociations;
var
  s: string;
  e: TStringArray;
  i: Integer;
begin
  s := GetExeName;
  e := Explode(',', Extensions);

  if (s <> '') and (Length(e) > 0) then
  begin
    for i := High(e) downto 0 do
      if (not AssociateExtension(e[i], 'text', s)) then
        Break;

    if (i >= 0) then
      WriteLn('Association failed!')
    else
    begin
      SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0);
      WriteLn('Associations updated!');
    end;
  end;
end;

procedure OnClick(sender : TObject);
begin;
  UpdateAssociations;
end;

procedure Init;
var
  m: TMenuItem;
begin;
  Extensions := Settings.GetKeyValueDef('Extensions', ExtensionsDef);

  m := TMenuItem.Create(Simba_MainMenu);
  m.Caption := '-';
  Simba_MainMenu.Items.Items[4].Insert(Simba_MainMenu.Items.Items[4].Count - 2, m);

  SimbaMenu := TMenuItem.Create(Simba_MainMenu);
  SimbaMenu.Caption := 'Associate File Extensions';
  SimbaMenu.OnClick := @OnClick;
  Simba_MainMenu.Items.Items[4].Insert(Simba_MainMenu.Items.Items[4].Count - 2, SimbaMenu);
end;

procedure Free;
begin
end;

procedure Attach;
begin;
  SimbaMenu.Visible := True;
end;

Procedure Detach;
begin
  SimbaMenu.Visible := False;
end;

function GetName : string;
begin;
  Result := 'Associate File Extensions (by Nielsie95)';
end;

function GetVersion : string;
begin;
  result := '0.1';
end;

begin
end.

From: nielsie95
If you want to associate the scar extension too, just edit the constant to:

const
  Extensions = 'simb,simba,sex,scar';

If you don't have this file in your extensions folder (associate.sex), create a new file and paste the above script in it and save. To enable the extension, open up Simba and open the View > Extensions form. Find associate.sex, click it and enable it. Now, in your tools menu, a new item should have appeared ("Associate File Extensions"). If you click it, it should associate all the appropriate files with Simba :)

Which results in the file above.

Even after adding the scar extension to associate.sex and clicking the "Associate File Extensions", it doesn't associate .scar to Simba (although it does associate .sex and .simb to Simba).

I ended up having to go into regedit and edit the registry value for the location of Simba (I guess when I uninstalled it the first time, the registry value wasn't removed or something?).

Anyways, I got it to work. Thanks, guys :)