teamfortress2.dpr

来自「pio aipao ewoje,dp powe p dfm pkwaq d」· DPR 代码 · 共 24 行

program TeamFortress2;

uses
  Forms,
  ShellAPI,
  IniFiles,
  SysUtils,
  Dialogs;

{$R *.res}
var
  Ini: TIniFile;
  Game, Params: String;
begin
  Application.Title := 'Team Fortress 2';
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Team Fortress 2.ini');
  Game := Ini.ReadString('GAME','EXECUTABLE','');
  Params := Ini.ReadString('GAME','PARAMETERS','');
  Application.Initialize;
  SetCurrentDir(ExtractFilePath(ParamStr(0)));
  ShellExecute(Application.Handle, nil, PChar(Game), PChar(Params), nil, 11);
  Exit;
end.