====== Delphi Projects ====== ===== NNScript G6 ===== {* * * 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. ===== NNScript G5 ===== {* * * 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.