NNScript G3

{*
*
* GomIRC.exe
* Programm zum starten von mIRC
* in dynamischen Ordnern
* written by PsyCore 2007
*
*}
 
program mircstart;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  ShellAPI,
  Windows;
 
var
  FD: string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
WriteLn('mIRC 6.31 with NNScript 4.2 "PsyCores Mod V2"');
WriteLn('booting up...');
FD := ExtractFilePath(ParamStr(0))+'bin';
WriteLn(FD+'\mirc.exe');
if FileExists(FD+'\mirc.exe') then begin
  try
    ShellExecute(0,
                PChar('open'),              //Operation
                PChar('mirc.exe'),          //Filename
                PChar('-r"NoNameScript"'),  //Parameter
                PChar('"'+FD+'\"'),         //Directory
                1);
  except
    MessageBox(0,
              Pchar('Fehler beim öffnen von mirc.exe'),
              Pchar('Fehler'),
              MB_OK+MB_ICONERROR);
  end;
end;
end.

NNScript G4

 {*
 *
 * 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.31';
NNVersion :=    '4.21';
Codename :=     'PsyCores Mod V3';
ModVersion :=   'mIRC Generation 4';
 
//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(FD+'\-r"NoNameScript"'),  //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.
Diese Website verwendet Cookies. Durch die Nutzung der Website stimmen Sie dem Speichern von Cookies auf Ihrem Computer zu. Außerdem bestätigen Sie, dass Sie unsere Datenschutzbestimmungen gelesen und verstanden haben. Wenn Sie nicht einverstanden sind, verlassen Sie die Website.Weitere Information
Drucken/exportieren
QR-Code
QR-Code NNScript G3 (erstellt für aktuelle Seite)