remove commented code

exercism · Dec 28, 2017 · c795af6 · c795af6
1 parent 7b24292
commit c795af6
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 35 deletions.
diff --git a/Delphi/Project/Source/uConfigApiFrm.pas b/Delphi/Project/Source/uConfigApiFrm.pas
@@ -34,7 +34,6 @@   TfrmConfigAPI = class(TForm)
   private
     { Private declarations }
     InstallInfo: TInstallInfo;
-//    function ExecuteAndWait(const aCommand: string): Boolean;
   public
     { Public declarations }
   end;
@@ -129,37 +128,4 @@ procedure TfrmConfigAPI.FormCreate(Sender: TObject);
   SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_APPWINDOW);
 end;
 
-//function TfrmConfigAPI.ExecuteAndWait(const aCommand: string): Boolean;
-//var
-//  tmpStartupInfo: TStartupInfo;
-//  tmpProcessInformation: TProcessInformation;
-//  tmpProgram: String;
-//begin
-//  result := false;
-//  tmpProgram := aCommand.Trim;
-//  FillChar(tmpStartupInfo, SizeOf(tmpStartupInfo), 0);
-//  with tmpStartupInfo do
-//  begin
-//    cb := SizeOf(TStartupInfo);
-//    wShowWindow := SW_HIDE;
-//  end;
-//
-//  if CreateProcess(nil, pchar(tmpProgram), nil, nil, true, CREATE_NO_WINDOW,
-//    nil, nil, tmpStartupInfo, tmpProcessInformation) then
-//  begin
-//    // loop every 10 ms
-//    while WaitForSingleObject(tmpProcessInformation.hProcess, 10) > 0 do
-//    begin
-//      Application.ProcessMessages;
-//    end;
-//    CloseHandle(tmpProcessInformation.hProcess);
-//    CloseHandle(tmpProcessInformation.hThread);
-//    result := true;
-//  end
-//  else
-//  begin
-//    RaiseLastOSError;
-//  end;
-//end;
-
 end.
diff --git a/Delphi/Project/Source/uUpdatePath.pas b/Delphi/Project/Source/uUpdatePath.pas
@@ -63,7 +63,6 @@ class procedure TUpdatePath.BroadcastChange;
 begin
   Buf := 'Environment';
   wP := 0;
-//  lParam := 0;
   lP := integer(@Buf[0]);
 
   SendMessageTimeout(HWND_BROADCAST,