interface
uses
- SysUtils, Classes, bmRegExp, ExtCtrls;
+ SysUtils, Classes, bmRegExp, ExtCtrls, GikoSystem;
type
TCommand = class(TObject)
implementation
uses
- GikoSystem, IniFiles, GikoUtil, Windows;
+ IniFiles, GikoUtil, Windows;
constructor TCommand.Create(const comm: String);
begin
end;
if (rc = ID_YES) then begin
- GikoSys.CreateProcess(
- FExecCommand.Command, '"' + FExecCommand.ToURL + '"');
+ // \93Á\8eê\83R\83}\83\93\83h
+ // nop \89½\82à\82µ\82È\82¢
+ if (AnsiLowerCase(FExecCommand.Command) <> 'nop') then begin
+ GikoSys.CreateProcess(
+ FExecCommand.Command, '"' + FExecCommand.ToURL + '"');
+ end;
end;
end;
end;