archiv:coding:delphi:projects

Delphi Projects

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.
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.
  • archiv/coding/delphi/projects.txt
  • Zuletzt geändert: 2011/04/11 23:11
  • von 127.0.0.1