También tienes la función GetCommandLine si no quieres pelearte con los argumentos.
Te puede ayudar a identificar los parámetros de forma rápida:
Código Delphi
[-]
var commandline:string;
begin
commandline := LowerCase(GetCommandLine);
if length(commandline) > 1 then
begin
forzar := pos('/forzar', commandline) > 0;
apagar := pos('/apagar', commandline) > 0;
reiniciar := pos('/reiniciar', commandline) > 0;
end;
saludos