OSDN Git Service

This commit was manufactured by cvs2svn to create branch 'Bb63'.
[gikonavigoeson/gikonavi.git] / ExtPreviewDatamodule.pas
index 12c0f41..14bb7be 100644 (file)
@@ -3,7 +3,7 @@ unit ExtPreviewDatamodule;
 interface
 
 uses
-  SysUtils, Classes, bmRegExp, ExtCtrls;
+  SysUtils, Classes, bmRegExp, ExtCtrls, GikoSystem;
 
 type
   TCommand = class(TObject)
@@ -42,7 +42,7 @@ var
 implementation
 
 uses
-  GikoSystem, IniFiles, GikoUtil, Windows;
+  IniFiles, GikoUtil, Windows;
 
 constructor TCommand.Create(const comm: String);
 begin
@@ -172,8 +172,12 @@ 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;