Delphi Projects [NoSociety.de]

Diese Seite ist nicht editierbar. Sie können den Quelltext sehen, jedoch nicht verändern. Kontaktieren Sie den Administrator, wenn Sie glauben, dass hier ein Fehler vorliegt.
====== Delphi Projects ======

===== NNScript G6 =====

<code delphi mircstart.dpr>
 {*
 *
 * mircstart.exe
 * Programm zum starten von mIRC
 * in dynamischen Ordnern
 * written by PsyCore 2007 - 2011
 *
 *}

program mircstart;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  ShellAPI,
  Windows;

var
  FD, MircVersion, NNVersion, Codename, ModVersion: string;
begin
  { TODO -oUser -cConsole Main : Insert code here }

//initialize variables
MircVersion :=  '7.10';
NNVersion :=    '4.22';
Codename :=     'PsyCores Mod V3';
ModVersion :=   'mIRC Generation 6';

//program info
WriteLn('mIRC '+MircVersion+' with NNScript '+NNVersion+' "'+ModVersion+'"');
WriteLn('Codename: '+Codename);
WriteLn('booting up...');

//set home directory
FD := ExtractFilePath(ParamStr(0))+'bin';
//WriteLn(FD+'\mirc.exe');

//lets go
if FileExists(FD+'\mirc.exe') then begin
  try
    ShellExecute(0,
                PChar('open'),                  //Operation
                PChar(FD+'\mirc.exe'),          //Filename
                PChar('-r"nnscript"'),          //Parameter
                PChar(nil),                     //Directory
                1);
                //WriteLn(GetLastError());
  except
    MessageBox(0,
              Pchar('Fehler beim öffnen von mirc.exe'),
              Pchar('Fehler'),
              MB_OK+MB_ICONERROR);
  end;
end;
end.
</code>

===== NNScript G5 =====

<code delphi mircstart.dpr>
{*
 *
 * mircstart.exe
 * Programm zum starten von mIRC
 * in dynamischen Ordnern
 * written by PsyCore 2007 / 2008
 *
 *}

program mircstart;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  ShellAPI,
  Windows;

var
  FD, MircVersion, NNVersion, Codename, ModVersion: string;
begin
  { TODO -oUser -cConsole Main : Insert code here }

//initialize variables
MircVersion :=  '6.35';
NNVersion :=    '4.22';
Codename :=     'PsyCores Mod V3';
ModVersion :=   'mIRC Generation 5';

//program info
WriteLn('mIRC '+MircVersion+' with NNScript '+NNVersion+' "'+ModVersion+'"');
WriteLn('Codename: '+Codename);
WriteLn('booting up...');

//set home directory
FD := ExtractFilePath(ParamStr(0))+'bin';
//WriteLn(FD+'\mirc.exe');

//lets go
if FileExists(FD+'\mirc.exe') then begin
  try
    ShellExecute(0,
                PChar('open'),                  //Operation
                PChar(FD+'\mirc.exe'),          //Filename
                PChar('-r"nnscript"'),  //Parameter
                PChar(nil),                     //Directory
                1);
                //WriteLn(GetLastError());
  except
    MessageBox(0,
              Pchar('Fehler beim öffnen von mirc.exe'),
              Pchar('Fehler'),
              MB_OK+MB_ICONERROR);
  end;
end;
end.
</code>