NNScript Archiv

Fehlermeldungen

Quellcode: GomIRC.exe

{*
*
* 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.
Drucken/exportieren
QR-Code
QR-Code NNScript Archiv (erstellt für aktuelle Seite)